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DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
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INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
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® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT = 
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p++ 
3; Facility: RMS 


Abstract: 


This module decodes (parses) the next DAP message and stores the 
validated fields in the DAP control block. 


Environment: VAX/VMS, executive mode 
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Author: James A. Krycka, Creation Date: 16-JUN-1977 
Modified By: 
v03-007 JEJ0046 J E Johnson 05-Jul- =e 
Since resultant name ate ings can be up to 255 Bytes Long 
make sure to use that as a valid length Limit check. 


v03-006 JEJ0019 J E Johnson arterere 
yh ter Bin ss SYSTEM to use DAP$V_P_OS as the 
ag due to naming conflict with DAP$7_POS magtape 
tte Be ng = Also use DAP$K_P_OS. 


V03-005 JAK0124 ycka 06-SEP-1983 
Update new DAPSa” Dtobe YFLG status bits during parse of 
Configuration message.” 


V03-004 JAKO113 J A Krycka 22-JUN-1983_ ; 
Continuation of cueer for DAP V7.0 specification. 
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5“SEP=1984 é: 3 44 RMS.SRCINTODECODE .MAR; 1 (1) 


Add support for 64-bit binary keys 
Also, set DAPSV_VMS_XPFn flags +4 “appreertete. 
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v03-003 KRMO108 K Malik 12-May-1983 
Update to support DAP V7.0 specification. 
v03-002 KRMO0089 Malik 18-Mar-1983 


Add support for STMEF nd STMCR file formats. 
Also, set DAP$V_GEQ_V70 bit as appropriate. 
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Mask for V_DESC 
Mask for V_TRUNC 
Mask for V_SRCR3 


DESC=<1aV_DESC> 
TRUNC=<1a0_TRUNC> 
SRCR3=<1aV_SRCR3> 

ASSUME DAP$Q_DCODE_FLG EQ 0 


Own Storage: 


NTODE CODE DECODE DAP MESSAGE 15=SEP=1984 23:56:41 VAX/VMS Macro V04-00 Page NTO 
VOe~ 000 DECLARATIONS aS eE a bbe 13:30:44 RMS.SRCINTODECODE .MAR; 1 3) v04 
009 9 -SBTTL DECLARATIONS 
00 te ; 
000 73 ; Include Files: 
000 74 ; 
000 75 
0000 76 SDAPPLGDEF ; Define DAP prologue symbols | 
0000 77 SDAPHDRDEF ; Define DAP message header | 
0000 78 SDAPSSPDEF ; Define DAP system specific field 
4 79 SDAPCNF DEF : Define DAP sent guration message | 
000 80 SDAPATTDEF ; Define DAP Attributes message 
0000 4 SDAPACCDEF ; Define DAP Access message 
0000 ¢ SDAPCTLDEF ; Define DAP Control message 
0000 8 SDAPCONDEF ; Define DAP Continue Transfer message 
0000 84 SDAPACKDEF ; Define DAP Acknowledge message 
0000 85 SDAPCMPDEF ; Define DAP Access Complete message 
0000 86 SDAPDATDEF ; Define DAP Data message 
0000 3s 87 SDAPSTSDEF ; Define DAP Status message 
0000 88 SDAPKEYDEF ; Define DAP Key Definition message | 
0000 89 SDAPALLDEF : Define DAP Allocation message 
0000 90 SDAPSUMDEF ; Define DAP Summary message 
0000—ss«o911 SDAPTIMDEF ; Define DAP Date and Time message 
0000 92 SDAPPRODEF ; Define DAP Protection message | 
0000 93 SDAPNAMDEF ; Define DAP Name message 
0000 94 SDAPF IDDEF ; Define DAP field ID symbols 
0000 95 SF WADEF 3; Define FWA symbols 
0000 96 
0000 97 ; 
0000 98 ; Macros: 
0000 99 ; 
4 +} 3 See next page for local macro definitions. 
0000 8 ; Equated Symbols: 
0000 03 ; 
0000 04 . : 
00000000 0000 05 K_EXT=0 ; Extensible field format 
00000001 0000 06 K_FIX=1 ; Fixed Length field format 
00000002 0000 07 x 1Rese : Image field format 
0000000 8 ; oe K_ROM= ; Rest-of-message field format 
00000004 0000 10 V_DESC=4 ; Store descriptor of source field 
00000005 0000 11 VUTRUNC=5 ; Truncate source field if necessary 
00000006 0000 \¢ V_SRCR3=6 ; Source field size in R ety 
8 ; 1? ; (applicable only if K_FIX specified) 
0000 15 
0000 16 
0000 17 
0000 18 
0 19 
0 0 
0000 
$333 
0 e5 


a oa ds 4 > 2s 9 4 2 3 2 


SOoCooooooooooooooooo 


None 


| N 4 
NTODE CODE DE P MESSAGE 15-SEP-1984 23:56:41 VAX/VMS Macro V04-00 P & 
vO6-000 LO RO INITIONS “SEP-1984 1633 34 ERMS. SRCINTODECODE MAR; 1 os (3) 


~SBTTL LOCAL MACRO DEFINITIONS 
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j++ 

; STORE_FIELD obtains the next field (if any) from the DAP message being parsed, 
converts it to an ssoreet 7¢cs format, and stores the result in the designated 

field of the DAP control block. The arguments (coded in-line) are: 


NAME = the symbolic name of DAP field used to generate symbolic DAP 
control block offset and field ID values. 
SIZE = the size in bytes of designated field in DAP control block. 
FORMAT= the format or structure o Fhe source field. Choices are: 
XT = extensible field (bit? of each byte is used to signify 
termination/continuation (0/1) of the field). 
X = fixed length field. 
G = image field (counted string). 
° = res ner neonees is taken as the next field. 
ry 
S$ 


E 
K_FI 
K_IM 
K_RO 
MASK = the flags to control ld processing: 

M_DESC= store only descriptor of the source field. 

M_TRUNC=truncate extra bytes if SRC field size is horger than 

DST field size (instead of declaring an error). F 
M_SRCR3=size of source field is given in R3 (applicable only if 

K_FIX is also specified). 
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0 

0 

0 «MACRO STORE_FIELD NAME,SIZE=1,FORMAT=1,MASK=0 

0 BSBW STORE_FIELD 

0 -BYTE SIZE 

0 TMP1..=. 

0 LIF EQ <SIZE-1>, «BYTE DAPS$B_'NAME 

0 LIF EQ <SIZE-2>, BYTE DAPS$W_‘NAME 

0 LIF EQ <SIZE-4>, -BYTE DAPSL_‘NAME 

0 LIF EQ <SIZE-6>, -BYTE DAPS$W_'NAME 

5 _— LIF EQ <SIZE-8>, -BYTE DAP$Q_'NAME 

0 LIF EQ <TMP2..-TMP1..>,.ERROR ;***** invalid field size *****; 
0 «BYTE DAP$_ ‘NAME 

0 BYTE FORMAT!MASK 

0 -ENDM STORE_FIELD 

3 ++ 

0 ; CHECK MASKS examines the designated field of the DAP control block for 
4 ; invalid and unsupported bits sec. The arguments (coded in-line) are: 
00 ; NAME = the pyabol tc name of the DAP field used to generate symbolic 
00 3 invalid and unsupported mask values. | 

b6 ; SIZE = the size in bytes of designated field in the DAP control block. 
00 . 

00 «MACRO CHECK_MASKS NAME,SIZE=1 

00 SBW CHECK_MASKS 

00 -BYTE SIZE 

00 TMP1..=. 

00 LIF EQ <SIZE-1>, «BYTE DAPSK_*NAME'_1,DAPSK_‘NAME’_U 
900 SIF EQ <SIZE-2>, .WORD DAPSK~'NAME'" 1 ,DAPSK~ "NAME '"U 
4 we LIF EQ <SIZE-4>, -LONG DAPSK_"NAME' 1 ,DAPSK_*NAME'_U 
$00 LIF EQ <TMP2,..-TMP1..>,.ERROR ;***#* invalid field size *****; 
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0000 184 .ENDM CHECK MASKS 
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NTODE CODE DECODE DAP MESSAGE 15=SEP=1984 23:56:41 VAX/VMS Macro V04-00 Page 6 NTO 
edt NTSDECODE_MSG = DECODE DAP MESSAGE 5-SEP-1984 16:20:34 (CRMS.SRCINTODECODE.MAR;1 ° (4) v04 
£08 1 § -SBTTL NTSDECODE_MSG = DECODE DAP MESSAGE 
ee 
000 189 ; NTSDECODE_MSG - is responsible for persing a DAP message into its constituent 
000 190 ; fields, storing these field values into corresponding fields in the 
4 191 ; DAP control block, and ie | performing validity checks on the 
000 136 3 contents of the converted fields to screen out invalid and unsupported 
4464 137 : bit options or field values. 
0000 195 ; Each DAP esesage Logically consists of two parts: 
000 196 ; (1) a message header (called the operator field in DAP). 
44 197 ; (2) a message body (called the operand field in DAP). 
00 198 ; In addition, the messace header may optionally contain a system 
0000 199 ; specific field for use by nevopencous systems which is treated as a 
44 89 : mini-message with discrete fields. 
0000 O 3 Calling Sequence: 
0000 03 ; | 
0000 204 ; CALLS #1,NTSDECODE_MSG 
0000 205 ; 
0000 soe 3; Input Parameters: 
0000 07 ; 
0000 208 ; 4(AP) Address of DAP control block 
0000 209 ; nee 
0000 210 ; Implicit Inputs: 
0000 211; 
0000 si¢ 3 None 
0000 213; 
0000 214 ; Output Parameters: 
0000 215; 
0000 216; RO Status code 
0000 217; R1 Destroyed | 
0000 218; ie 
0000 219 ; Implicit Outputs: 
0000 220 ; é 
0000 221; Various fields of the DAP control block are updated. 
0000 $56 $ F 
0000 23 ; Completion Codes: 
0000 224 ; 7 : : Ee : 
444 $$2 8 DAPSL_DCODE_STS is returned in RO where bit 0 indicates success/failure. 
0000 227 ; Side Effects: 
0000 228 ; 
Bp08 $3 : None 
000 0; 
ae 
OFFC 0000 38 -ENTRY NTSDECODE_MSG,“M<R2,R3,R4,R5,R6,R7,R8B,RI,R10,R11> 
000 34 ; Entry point 
000 FA 
000 gi eed 
090 38 : Perform initialization. 
0 2 
59 04 AC DO 3 40 MOVL 4(AP) RO ; Get address of DAP control block 
18 A901 b0 006 241 MOVL #1, DAPSL DCODE STS(R9) ; Assume successful parse 
5A 08 AD «=7D 000A 242 MOVG DAPS$Q_MSG_BUFITR9),R10 ; R10 = size of message 


dD 5 


WT ODE CODE DECODE DAP MESSAGE 13-360 1988 $3: 26:4) AX/VMS Macro V04-00 Page 
vO4 NTSDECODE_MSG = DECODE DAP MESSAGE 5-SEP-1984 16:20:34 (CRMS.SRCINTODECODE.MAR; 1 
OO0E 43 ; R11 = address of start-of-message 
10 A9 «=SA) 67D «6000 44 MOVa R10,DAP$Q_MSG_BUF2(R9) ; Store in result descriptor 
mF co 9 45 ADDL2  R11,R10 ' 3 R10 = address of end-of-message + 1 
01 6 $ZERO_FILL- ; lero current message work area 
Baie 4 DST=DAPSL_CMWA(R9) = ; im DAP control block 
Ba) $3 SIZE=#DAPSK_CMWA ; : 
24 A996 003 rH CLRB DAP$B_X_FIECD(R9) ; Clear ‘explicitly specified’ flags 
0 51 34+ 
83 26 ; Note the current status of registers R8-R11: 
8 54; R8 Currently undefined; later it will be used to contain the 
0 > ae address of the routine to execute on reaching end-of-message 
002 2$ ; R Address of DAP control block 3 ' 
3 57; R10 Address of end-of-message-buffer + 1; Later it will contain 
00 526 3 the address of end-of-message + 1. 5 
002 59 ; R11 Address of start-of-message; it will be continually updated 
8055 560 : to contain the address of the next byte to parse 
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me 


; Decode the header of the DAP message (operator portion of the message). 


; portion of the message). 


ASSUME DAPSK_C 


DAADAAQAAAAAAA AA ACG 
MMMMMMMmMmMmmMmmMmmMmmMmncn 
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ASSUME DAPSK~NAM~ 


; Then dispatch on message type to parse the body of the DAP message (operand 
; Continuation of mainline | 


: For optional fields, apply default values as appropriate. 


MOVAQ (RY) ,DAPSQ_SYSPEC+4(R9) ; Initialize descriptor 


: Process the DAP message type field (required). 


MOVAB W*ERROR_FORMAT,R8 


STORE_FIELD TYPE,1,K_FIX 
TSTB~ (R6) 

BEQL =-:10$ 

CMPB ss (R6) , ADAP SK_NAM_MSG 
BGTRU 108 

MOVB = (R6), DAPSB_DCODE_MSG(R9) 
BRB 0$ 

108 BRW ERROR_INVALID 


+ 


Sete Se Ge Ge Ge Se Ge He 


Specify transfer address on EOM 
Save type field 

Test for valid value 

Branch if out-of~-range 

Test for valid value 

Branch if out-of-range 

Return message type in status code 
Continue 

Branch aid 


Process the DAP message flags field (required for most messages). 
This is a combination menu and bit option field whereby each bit set denotes 
that either an associated field is included in the message or a message 


option is specified. 


Note: If no flags field is found (i,e., its a one-byte message), the 
associated operand gorse routine for the message will still be entered 


(via DISPATCH_TABLE 


A to determine if the message is valid and to apply 
operand field default values. 


NTOD Ee DECODE DAP MESSAGE 15-SEP-1984 23:56:41 VAX/VMS Macro v04-00 Page 9 NTO 
vba dM HEADER = DECODE MESSAGE HEADER aes ae $5338 44 RMS .SRCINTODECODE .MAR; 1 ° (5) v04 
044 0 
44 1 ASSUME DAPSV_STREAMID+1 EQ DAPS$V LoWgrh 
44 ; ASSUME DAP SV -LENGIUS) EQ DAP$V_LEN256 
44 ASSUME DAPS$V~LEN2564+1 EQ DAPSVBITCNT 
44 6 ASSUME DAP ey BIEN ¢¢ EQ DAPS$V_SYSPEC 
or 5 ASSUME DAPSV_SYSPEC+1 EQ DAPSV_SEGMENT 
58 OOCB°CF YE bee 5 208: MOVAB W*DISPATCH TABLE RS ; spec tty transfer address on EOM 
0049 8 STORE _FIELD FLAGS, 1,K_EXT : Save flags field 
Spee 9 CHECK_MASKS FLAGS,1 ; Validate bit options 
58 O0846'CF 9E 0056 0 MOVAB” W*ERROR_FORMAT,R8 ; Specify transfer address on EOM 
5C 66 9A O03 1 eo OVZBL (R6),AP ; Copy menu to scratch register 
5c O07 00 EA 005 : S$ #0, #DAPSV_SEGMENT+1,AP,RO; Get position of next bit set 
006 4 SCLRBIT RO, ; Clear menu bit just found 
F4 AF OF 006 35 PUSHAB B“HDR_LOOP ; Push return address on stack 
006A 36 SCASEB SELECTOR=RO- 3 Next field/option: 
006A * DISPL=<- : 
006A 8 10$- ; STREAMID 
006A 39 0$- ; LENGTH 
006A 40 - ; LEN256 
006A 41 ERROR_UNSUPPORT=- ; BITCNT 
006A 4g ERROR_FORMAT=- ; Reserved 
006A 4 - 3 SYSPEC 
ean rt: _ ERROR_UNSUPPORT= ; SEGMENT 
4A 11 tas rf BRB DISPATCH_TABLE ; Message header syntax is correct 
007E 48 ; . , : 
Bove $3 ; Process each field/option specified in the menu (optional). 
OO7E 351 * 
it 2g 108: STORE_FIELD STREAMID,1,K_FIX; Save data stream identification field 
66 95 008 5 TSTB (R6) ; Currently, multi-streams are 
0087 54 3; not supported, so check value 
3¢) = 12-—= (0087 55 BNEQ HDR_UNSUPPORT ; Branch on error 
05 0089 56 RSB 3 
008A 57 208: STORE_FIELD LENGTH,1,K_ FIX ; Save length field 
08 5c 4«6002~—=CO«EN—«s« 00911 28 BBC #DAPS$V_LEN256,AP,35$ ; Branch if Length value in header is 
0095 5 ; expressed in one byte (i.e., there 
05 0095 60 RSB ; _is no LEN256 field present) 
0096 61 308: STORE_FIELD LEN256,1,K_FIX ; Save length extension field 
B38 a 
a09p rt: ; Determine end-of-message based on operand Length value in message header. 
09D 06 
344 t ASSUME DAPSB_LENGTH+1 EQ DAP$8_LEN256 
50 33 a9 3C 0090 69 35$: MOVZWL DAPSB_LENGTH(R9) ,RO ; Get operand Length value 
51 5B 50 C1 OQOA1 70 ADDL3 = RO,R1T,R1 ; Compute new end-of-message + 1 address 
5A 51 01 QOAS 71 CMPL R1,R ; Error if not enough bytes in buffer 
18 1A OQOA8 BGTRU HDR_INVALID ; to contain message 
5A 51 DO QOAA 7 MOVL R1,R10 3 Update end-of-message address 
05 QOAD 74 RSB : 
OAE 75 
OAE 76 ;+ 
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E ESS 
R ECSDE MESSAGE HEADER ~SEP-19 RMS .SRCINTODECODE .MAR; 1 (5) v04: 
“ a ; Suggested code to support the BITCNT field is shown below. 
Ar 8 340$:  STORE_FIELD BITCNT, 1K. FIX ; Save bit count field 
AE 0; CMPB ~ DAP$B_TYPE(R9), : BITENT field allowed only in 
AE 1; #DAPSR_DAT_MSG ; Data messoge 
OAE ¢ 3 BNEQ +e Branch on err 
AE ; CMPB (R6) 3 Check for velue in the range 0-7 
AE 4; BGTRU NOR INVALID Branch on error 
OAE 5 3 RSB ; 
OAE 6 3° 
OAE 
fat 8 60$: STORE_FIELD SYSPEC,8,K_IMG,<M wpeec? 
One +4 5 Saye queeripter of system specific 
30 Ads o91 bons 91 CMPB DAPS$B pis pede - 3; SYSPEC field not allowed in 
1 9088 3¢ #DAPSR_CNF_MSG : Configuration message | 
5 13 0089 9 BEQL 808 :; Branch on erro 
01 69 4 €1 0088 94 BBC #DAPSV_VAXVMS,(R9),80$ ; SYSPEC field allowed only if 
Beer 95 3 systems are homogeneous 
05 OOBF 396 RSB ; | 
68 17 if 44 80S: JMP (R8) ; Branch to error_format routine | 
00C 99 : 
00C 400 : Branch here on exception condition. 
00C2 401: 
00C re | 
00C2 403 HDR_INVALID: : ‘ 
0790 31 O0C 404 ERROR_INVALID ; Branch aid 
00c 405 HDR_UNSUPPORT: : ‘ 
0799 31 O0C5 406 BRW ERROR_UNSUPPORT ; Branch aid | 
| 
| 


Oe ss 
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DISPATCH TABLE - CASE ON MESSAGE TYPE eet ae 13:30:44 RMS ..SRCINTODECODE .MAR; 1 ° (6) vO4 
: i -SBTTL DISPATCH_TABLE = CASE ON MESSAGE TYPE 
C 410 ;+ 
C 411 ; The DAP messasge header has been successfully parsed. Now qispatch on message 
: t1§ ; type to the appropriate code segment to process the body of the message. 
: re ; Note: she, geee table entries below should match the DAPSK_VALID_F2R message 
: mask! 
7 rs ae 
OC 213 DISPATCH TABLE: ; Continuation of mainline 
57 00 9A 5 ah MOVZBL #DAPS_UNKNOWN,R7 ; Set field ID to ‘unknown’ 
CB 420 SCASEB SELECTOR=DAP$8_TYPE(R9)-: Dispatch to message specific decode 
ppce 421 BASE=#DAPSK_CNF_MSG- i; routine to process: 
OCB 4 ¢ DISPL=<- : 
0OOCcB 4 CNF_MSG- 3 Cont'iguret ton message 
OCB 424 ATT _MSG- ; Attributes message 
OCB 425 ERROR_SYNC- 3 Access message 
OCB 426 ERROR_SYNC= ; Control message 
0OOCB 427 ERROR_SYNC- ; Continue Transfer message 
OOCB 428 ACK_MSG- i Acknowledge message 
OOCB 429 CMP_MSG- ; Access Compiete message 
00cB 430 DAT_MSG- ; Data message 
00cS 431 STS_MSG- ; Status message 
00CB $3¢ KEY_MSG- ; coy Definition message 
OOCB 3843 ALL_MSG- ; Allocation message 
OOCB 434 SUM_MSG- ; Summary message 
00CcB $33 TIM_MSG- ; Date and Time message 
O0OCB 436 PRO_MSG- ; Protection message 
OOCB 8437 NAM_MSG- ; Name message 
00OCB 438 > ; 
QOEE 440 
OOEE 441 ; The message type value has been validated (bounds checked), so the type value 
it 43 a28 3; will not Be outside the range of the case table above. 


oe 
DECODE DAP MESSAGE 15-SEP- 138% $2 AX/VMS Macro Vv04-00 Page 
CNF_MSG = DECODE CONFIGURATION MESSAGE -SEP-1984 16: 3 ‘$4 RMS .SRCINTODECODE .MAR; 1 


EE 445 -SBTTL CNF_MSG = DECODE CONFIGURATION MESSAGE 
EE 1a? sae 
Oe ret > Decode the operand fields of the Configuration message. 
OFF 450° 
EE 451 CNF_MSG: ; Code segment of mainline 
58 OB846'°CF 9 3 ? § MOVAB W*ERROR_FORMAT,RS ; Specify transfer address on EOM 
f 454 ; 
; 36 3 Process the buffer size field (required). 
F 457 
OF $28 STORE _FIELD BUFSIZ,2,K_FIX ; Save buffer size field 
OFA 60 
OFA 461 : Process ayecee eoriuare and DAP protocol version number fields (required). 
OFA to¢ ; These fields are for information purposes only; hence no bounds checking 
OFA 463 ; on their values is performed. 
OOFA 46g 
aire rg STORE _FIELD OSTYPE,1,K_FIX ; Save qneret ing system Feta field 
101 46 STORE FIELD Fitesys {.R_FIX : Save file system type f 
0108 468 STORE FIELD UM, 1,K_FIX : Save DAP version # 
ay 469 STORE FIELD ee ONUM, 1,K_FIX ; Save ECO version # field 
116 «86470 STORE FIELD USRNUM,1,K_FIX ; Save user protocol version # field 
011D 471 STORE FIELD DECVER: 1,K_FIX ; Save DEC software version # field 
0124 47 STORE _FIELD USRVER,1,K_FIX ; Save user software version # field 
gee 
3) B 475 : Process the system capabilities field (required). 
128 476 ; Bits set that are not defined in the DAP seat are ignored (not flagged as 
: : of 3 an error) to facilitate compatibility with earlier implementations of DAP. 
128 479° 
1 480 STORE _FIELD SYSCAP,8,K_EXT,<M_TRUNC> 
; ibe ; Save system capabilities field 
1 4 : CHECK_PROTOCOL_VERSION: : Set appropriate DAPS$Q_DCODE_FLG bits 
50 44 a9 9A Q1 484 MOVZBL~ DAPS$B_ VERNUM(R9) ,RO : Combine version number and ECO 
0 8 78 0136 485 ASHL #8,ROUR ; number fields into one 16-bit 
50° 45 a9 80 ; A 486 ADDB2 DAP$B_ECONUM(R9) ,RO : value for easy comparison 
13 488; 
; 4 iss ; Set status flag if partner implemented to DAP spec since V4.1. 
13€ «491° 
0401 8F 39 Hy 145 rh ys A RO,#*x0401 s pic ore: implement since DAP V4.1? 
ranc 
14 494 SSETBIT #DAP$V_GEQ_V41,(R9) : Set flag 
129 496 
+ 438 : Set status flag if partner implemented to DAP spec since V4.2. 
149 499 ° 
0402 8F 50 B61 0149 23 CMPW RO, #*x0402 ; Did partner jnplenont since DAP V4.2? 
46 OF OO14E 1 BLSSU 108 : Branch if not 


NTO 
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vee dS CNF_MSG = DECODE CONFIGURATION MESSAGE aes at 4 1333 734 (CRMS.SRCINTODECODE.MAR; 1 . 
] ? ¢ SSETBIT #DAPS$V_GEQ_V42,(R9) ; Set flag 
154 4; 
} 2 ‘ ; Set status flag if partner implemented to DAP spec since V5.2. 
154 f 
0502 8F Hy B1 0154 o8 CMPW RO,#*x0502 3; Did partner implement since DAP v5.2? 
fF 159 BLSSU ; Branch if not 
158 10 SSETBIT #DAP$V_GEQ_V52,(R9) ; Set flag 
13 842 
13 18 ; Set status flag if partner implemented to DAP spec since V5.4. 
15 515 ° 
05046 8F 38 81 13f 16 CMPW RO, #*x0504 ; Did partner implement since DAP V5.4? 
. B18 7 BLSSU ; Branch if not 
ork 18 SSETBIT #DAP$V_GEQ_V54,(R9) 3; Set flag 
16A os 
Bite 2 ; Set status flag if partner implemented to DAP spec since V5.6. 
016A 523 ° 
0506 8F 50 61 QI6A 524 CMPW RO, #*x0506 ; Did partner implement since DAP V5.6? 
25. «OF O16F ; 5 BLSSU 10 > Branch if not 
0171 6 SSETBIT #DAP$V_GEQ_V56,(R9) ; Set flag 
0175 527 
0175 «528 ; 
Biee : 4 ; Set status flag if partner implemented to DAP spec since V6.0. 
175 531° 
0600 8F 50 861 b178 238 CMPW RO,#*x0600 ; Did partner implement since DAP V6.0? 
1A 1F «(O17A 5 BLSS ; Branch if not 
017¢ «= 534 SSETBIT #DAPSV_GEQ_V60, (R9) ; Set flag 
180 535 
180 238 3 
0180 336 3; Set status flag if partner implemented to DAP spec since V7.9. 
0180 & 
0700 8F 50 61 0180 229 CMPW RO,#*x0700 3; Did partner implement since DAP V7.0? 
OF TF big3 41 BLSS ; Branch if not 
0187 248 SSETBIT #DAP$V_GEQ_V70, (R9) : Set flag 
Hs 54 
01 44 ; 
ss ig ; Set status flag if partner implemented to DAP spec since V7.1. 
1 47° 
0701 8F 50 861 188 48 CMPW RO,#*x0701 ; Did partner implement since DAP V7.1? 
06 =«1F 190 49 BLSSU__10$ : Branch if not 
13 29 SSETBIT #DAP$V_GEQ_V71,(R9) ; Set flag 
196 se 3 
0196 34 3; Set experimental protocol flags from the low order four bits of the USRNUM 
196 54 ; field only if partner is VAX/VMS. 
ee 
42 a9 91 0196 2§ 10$: CMPB DAP$B_OSTYPE(R9) ,- ; Branch if partner is not VAX/VMS 
07 199 58 #DAPSR_VAXVMS 3 


on 
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CNF_MSG = DECODE CONFIGURATION MESSAGE ~$ee 1382 95:38:44 FRMS SRCINTODECODE MAR: 1 ° (7) | v04 
| 
12 9 BNEQ CHECK FILE SYSTEM . 
50 46 ad 94 EF 0 EXTZV 0.84 DAPS$B_USRNUM(R9),RO =; Get low order four bits of USRNUM | 
9 C FO 1 INSV RO, #DAPSV_VAS_XPF1,#4,(R9) : Set experimental protocol flags | 
$ CHECK _FILE_ SYSTEM: ; Set appropriate DAP$Q_DCODE_FLG bit. | 
5 ASSUME DAPSK_RMS11 EQ 1 
: ASSUME DAPSK_RMS¢ EQ ; 
ASSUME DAPSK“RMS32 EQ 
ASSUME DAPSK-FCS11 EQ 4 
ASSUME DAPSK"RTI1FS EQ 5 | 
ASSUME DAP$K"NO ES EO 6 
ASSUME DAPSK-TOPS20FS EQ 7 
ASSUME DAPSK_TOPS10FS Ed 8 
ASSUME DAPSK-RMS32S EQ 10 


; Set status flag pertaining to the type of file system used by the remote node. 


SCASEB SELECTOR=DAP$B_FILESYS(R9)- | 
BASE=#DAPS$K_RMS11- ; Type of remote file system: 
| 


$ 
0 
19A 5 
19 6 
1A 6 
1A 6 
1A7 6 
1A7 6 
1A7 6 
1A7 6 
1A7 6 
1A7 6 
1A7 § 
1A7 9 
1A7 7 
1A7 1 
1A7 7 
1A7 74 
1A7 75 
1A7 1 
Hy 2 
1A7 8 
O1ay 880 
01A7 es) DISPL=<- : 
nat 2 ¢ 10$- : RMS-11 
1A7 8 10$- z RMS-20 
1A7 ee 10$- : RMS-32 
1A7 5 0$- : FCS-11 
1A7 36 0$- 3; «RT-1 
Bir 8 40$- : No file system present 
1A7 88 i : TOPS-20 
O1A7 = 5589 0$- ; TOPS-10 
O1A7 = 90 40$- ; Unde‘ ined 
BiAr 23) " 10$- ; RMS-52 subset 
10 «+11 O10 358 eae 408 3 
on 11 A Hy: 108: sseTeit FpePee AS. (RP ; Set RMS based file system flag 
“on O1¢8 536 208: sss tett Sparev FCS. CR) ; Set FCS based file system flag 
Ore $58 30$: SSETBIT #DAPSV_STM_ONLY, (R9) ; Set stream ASCII file system flag 
Bie 4 40$: : 
10 tt CHECK_OPERATING_SYSTEM: ; Set appropriate DAP$Q_DCODE_FLG bit | 
10 08 ASSUME DAPSK_RT11 EQ 1 
1D 604 ASSUME DAPSK_RSTS EQ 2 | 
1D 605 ASSUME DAPSK_RSX11S EQ 3 
1D O06 ASSUME DAPSK_RSX11M EQ 4 
19 pt ASSUME DAPS$K_RSX11D EQ 5 
1D 6 3 ASSUME DAPSK_IAS EQ 6 
1D2 60 ASSUME DAPSK-VAXVMS £0 7 | 
1D 610 ASSUME yrs et ee EQ 8 
1D 611 ASSUME DAP SK TOPS EQ 
1D o1¢ ASSUME DAPSK_RSX1IMP EQ 1 | 
1D 61 ASSUME DAPS$K_COPOS11 ¢ 1 | 
1D 614 ASSUME DAPSK_P_OS EQ 14 
1D 615 ASSUME DAPSK-VAXELAN EQ 15 | 
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v04- CNF_MSG = DECODE CONFIGURATION MESSAGE Pant at 18:38:46 LRMS SRCINTOD DECODE .MAR; 1 . 
De $16 
1D 617 ; 
1D 218 ; Set status flag pertaining to the type of operating system being used at the 
1D 619 ; remote node. 
Bs B3P 
1D 6 ¢ SCASEB tt ns apy OSTYPE(R9) = 
01D 6 BASE=#DAPSK_RTT1- ; Type of remote operating system: 
01D 624 D1SPL =<~ : 
810 625 0$- 3 RT-11 
1D 6 § 2S 3 RSTS/E 
810 6 5 3 RSK-115S 
1D 628 70$- 3 RSX-11M 
01D 629 oie. ; RSX-11D (classified as IAS) 
01D 630 0$- ; IAS 
01D o3) 10$- 3 VAX/VMS 
01D 6 § 40$- 3; TOPS-20 
01D 6 30$- : TOPS-10 
01D 634 100$- ; Undefined 
01D 635 100$- ; Undefined 
01D 636 70$- 3 RSX-11M-PLUS 
01D rat 40$- : TOPS=20 (using 2050/2060 front end) 
01D 638 90$- 3; P/OS 
01D 639 20$- > VAXELAN 
01D 640 : 
34 11 O1F5 641 BRB 100$ : 
O1F7 o6 10$: SSETBIT #DAPSV_VAXVMS, (R9) ; Set VAX/VMS system flag 
2—E 11 O1B 64 R 1 3 
O1FD 644 20%: SSETBIT #DAPSV_VAXELAN, (R9) ; Set VAXELAN system flag 
28 11 0201 645 R 1 ; 
2 41 Bsos 278 30$: SSETBIT #DAP$V_TOPS10, (R9) ; Set TOPS-10 system flag 
1c 1 0209 oh8 40$: oss Test #DAPSV_TOPS20, (R9) 3; Set TOPS-20 and COPOS11 system flag 
O20F 650 508: $SETBiT #DAPS$V_RT11,(R9) 3; Set RT-11 system flag 
16 11 0213 651 R 3 
0 11 O62 $36 60$: SSETBIT #DAPSV_RSTS, (RI) ; Set RSTS/E system flag 
0518 654 70$: SSETBIT #DAPSV_RSX, (RI) 3 Set RSX-11S, RSX-11M, and RSX-11M-PLUS 
OA 11 Q21F 655 RB 3; system flag 
“te 8 $i 028 80S: SSETBIT #DAPSV_IAS,(R9) ; Set IAS and RSX-11D system fiag 
8555 $28 90$: SSETBIT #DAP$V_P_OS, (R9) ; Set PO/S system flag 
0640 31 $556 660 100$: BRW EXIT_SUCCESS ; Message syntax is correct 


NTODECODE DECODE DAP MESSAGE 15-SEP-19 AX/VMS Macro V04-00 Page 
YOeeb OO. ATT_MSG = DECODE ATTRIBUTES MESSAGE rent ist} oF 6: 3 ‘44 RMS. SRCIN TOD DECODE .MAR; 1 ° 
: 666 -SBTTL ATT_MSG = DECODE ATTRIBUTES MESSAGE 
E 664; 
F O22 i 5 "becode the operand fields of the Attributes message. 
E ges F- 
—E 668 ATT_MSG: 3; Code segment of mainline 
2 
8 4 org : For optional fields, apply default values as appropriate. 
—E 673 
44 A9 02 90 8 5 674 MOVB #DAPSK_DATATYP_D,DAP$B_DATATYPE(R9) 
4549 00 90 02 675 MOVB #DAP$K~ORG_D,DAP$B_ORGTRI) 
4609 01 90 0236 676 MOVB  #DAPSK-RFM D DAPSBIREM(RO) 
48 AJ 0200 8F BO 8 A 677 MOVW #DAPSK_BLS_D,DAP$W_BLS(R9) 
52 a9 08 90 40 678 MOVB #DAPS$K-BSZ-D,DAP$B_BSZ(R9) : 
60 A9 «=6669”—sS7E 8 3 44 MOVAQ (R9),DAP$Q- “RUNS YS#% (RI) ; Initialize descriptor 
0948 681 ; 
0248 oes : Process the attributes menu field (optional). 
OSes oR; : Each bit set denotes that its associated field follows in the message. 
0248 685 
0248 686 ASSUME DAPSV_DATATYPE+1 EQ DAPS$V_ORG 
0248 687 ASSUME DAPS$V~ORG+1 EQ DAPS$V_RFM 
0248 688 ASSUME DAPSV-RFM+1 EQ DAPS$V-RAT 
0248 689 ASSUME DAPS$V-RAT+1 EQ DAP$V~BLS 
0248 690 ASSUME DAP$V_BLS+1 EQ DAPSV_MRS 
0248 691 ASSUME DAPSV_MRS+1 EQ DAP$V_ALQ1 
0248 69 ASSUME DAP$V~ALQ1+1 EQ DAPS?_BKS 
0248 69 ASSUME DAPS$V~BKS+1 EQ DAP$V_FSZ 
0248 694 ASSUME DAP$V_FSZ+1 EQ DAPSV_MRN 
0248 695 ASSUME DAPSV_MRN+1 EQ DAPSV_RUNSYS 
0248 696 ASSUME DAPS$V_RUNSYS+1 EQ DAPS$v_DEQ1 
0248 697 ASSUME DAP$V_DEQ1+1 EQ DAPS$V_FOP1 
0248 698 ASSUME DAP$V_FOP1+1 EQ DAPS$V_BSZ 
0248 699 ASSUME DAP$V_BSZ+1 EQ DAP$V_DEV 
0248 700 ASSUME DAPS$V_DEV+2 EQ DAPS$V_LRL 
0248 701 ASSUME DAPS$VILRL+1 EQ DAPSV"HBK 
0248 70 ASSUME DAPS$V"HBK+1 EQ DAPS$V~EBK 
osée 70 ASSUME DAP$V_EBK+1 EQ DAPSV_FFB 
8 oe re ASSUME DAPSV_ FFB+1 EQ DAPSV_ SBN 
58 O86E'CF QE $5t8 706 MOVAB W*EXIT_SUCCESS,R8 3; ALL done if tes menu fieta 
024d 707 STORE_FIELD ATTMENU,4,K EXT ; Save attributes menu field 
0528 708 CHECK _MASKS ATTMENU,4 ; Validate bit optio 
58 0846'CF 9E& 0260 709 VAB™ W*ERROR_FORMAT, RB ; Specify transfer oddress on EOM 
5¢ 66 00 8508 £19 one voor (R6),AP~ 3; Copy menu to scratch register 
So x 7 @. 09668 ie ~ FFS £0.80 -#DAPSV_SBN+1,AP,RO ; Get position of next bit set 
026D 71 SCLRBIT R ; Clear menu bit just found 
9F 0271 714 PUSHAB BATT LOOP 3; Push return address on stack 
0274 715 SCASEB SELECTORS RO- ; Next fie 
0274 ay DISP ines ; 
0274 71 0$- ; DATATYPE 
0274 718 20$- 3; ORG 
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Voenboo ATT_MSG = DECODE ATTRIBUTES MESSAGE ae ae 6:2 $4 RMS .SRCINTODECODE .MAR; 1 . 
74 #719 30$- ; «OREM 
74 = 720 rt 3; RAT 
74 = «721 50$- ; Ss 
74 «7 § + a 3) 6OMRS 
Te = 0$- ; 6 ALQ1 
74 = 724 1 ; BKS 
74 = =725 0$- 3 FSZ 
eae § 100$- 3: MRN 
0274 7 110$- 3; RUNSYS 
0274 728 1¢08- ; DEQ) 
0274 729 130$- 3; FOP1 
8 74 730 + ; BS2Z 
re. oa 150$ 3; «DEV 
bste tg ERROR_FORMAT=- ; Reserved 
0274 73 170$- $ 6LAL 
0274 ee 180$- ; H8K 
0274 735 190$- 3; EBK 
0274 736 00$- 3; «6FFB 
0274 737 10$- ; SBN 
0274 738 > 3 
0sc9—ss3531 ashe 739 BRW EXIT_SUCCESS ; Message syntax is correct 
02A 740 
02A5 741; ‘ 
02A5 re ; Process each field specified in the menu (optional). 
02A5 743; 
O2A5 744 
O2A5 745 40$: STORE _FIELD RAT,1,K_EXT ; Save record attributes field 
O2AC 746 CHECK_MASKS RAT,1 ; Validate bit options 
05 O02B2 747 RS : 
0 ae: £8 50$: STORE_FIELD BLS,2,K_FIX ; Save block size field 
0 ps88 £30 60$: STORE_FIELD MRS ,2,K_FIX ; Save maximum record size field 
0s a O36 70$: STORE_FIELD ALQ1,4,K_IMG 3; Save allocation quantity field 
02CB 754 80$: STORE_FIELD BKS,1,K_FIX ; Save bucket size field 
05 og0¢ 755 B 3 : , 
05 Boe £38 90S: STORE_FIELD FSZ,1,K_FIX ; Save fixed control area size field 
05 O58 £38 100$: STORE_FIELD MRN,4,K_IMG ; Save maximum record number field 
bse 760 1108: STORE_FIELD RUNSYS,8,K_IMG, cf _DESC> 
O2EA 761 ; Save descriptor of run-time 
OSEA 166 3; system string 
05 EA 76 RSB 3 : : : 
05 OSES ree 1208: Si ORE. FIELD DEQ1,2,K_FIX ; Save default extension quantity field 
$58 766 130$:  STORE_FIELD Font 4,K_EXT : Save file options field 
aera 767 CHECK. _MASKS FOP, 4 : Validate bit options 
05 0 06 768 RSB 3 
830 769 10$: STORE _FIELD DATATYPE,1,K_EXT; Save data type field 
ve 0308 £70 CHECK “MASKS DATATYP,1 - ; Validate bit options 
O31¢ Te 20$: STORE _FIELD ORG,1,K_FIX ; Save file organization field 
Hie 774 ASSUME DAPS$K_SEQ EQ 0 
031¢ 775 ASSUME DAPSK-REL EQ 16 
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voe~000 ATT_MSG = DECODE ATTRIBUTES MESSAGE Seen obec 6:20:34 CRMS.SRCINTODECODE.MAR; 1 < 
if 76 ASSUME DAPSK_IDX EQ 32 
66 9 Cc ? TSTB (R6) ; Check for valid value 
OC 13 1 578 BEQL 25$ ; Branch if ok | 
10 66 91 780 CMPB (R6) ,#DAPSK_REL ; Check for valid value 
07 «(13 8 781 BEQL 25$ ; Branch if o 
20 66 91 7 ¢ CMPB (R6) ,#DAPSK_IDX i Check for valid value 
9s 13 0328 78 BEQL 25$ ; Branch if ok 
5 11 O32A 784 BRB ATT_INVALID ; Branch on error 
05 032C A T+ RSB ; 
83 ? 4 $ O$: STORE_FIELD RFM,1,K_FIX ; Save record format field 
$3 4 oe ASSUME DAPSK_UDF EQ 0 
0334 789 ASSUME DAPS$K_FIX EQ 1 
0334 790 ASSUME DAPSK"VAR EQ 
0334 791 ASSUME DAPSK_VFC EQ 
0334 79 ASSUME DAPSK_STM EQ 4 
0334 79 ASSUME DAPSKISTMLF EQ 5 
ORee Pee ASSUME DAPSK_STMCR EQ 6 
06 66 91 0334 796 CMPB (R6) ,ADAPSK_STMCR ; Check for valid value 
45 1A 0337 797 BGTRU  ATT_INVALID ; Branch if out-of-range 
05 0339 798 RSB ; 
033A 799 140$: STORE_FIELD BSZ,1,K_FIX ; Save byte size field 
05 0341 800 RSB ; eee 
0342 801 150$:  STORE_FIELD DEV.4,K_EXT ; Save device characteristics field 
0s tt 3 gue Ch ASKS DEV,4 ; Validate bit options 
05 S326 axe 170$: STORE_FIELD LRL,2,K_FIX ; Save longest record length field 
- ba7e ane 180$: STORE FIELD HBK,4,K_IMG ; Save highest virtual block number 
0366 808 190$: STORE_FIELD EBK,4,K_IMG ; Save end-of-file block number field 
05 036D 809 RS ; 
036€ 810 200$:  STORE_FIELD FFB,2,K_FIX ; Save first free byte in EOF block 
05 0375 811 ; field ; ; 
0376 812 210$ STORE_FIELD SBN,4,K_IMG ; Save starting logical block number 
05 037D 813 RSB : field 
O37E 814 
O37E 815 ; sete 
037E 816 ; Branch here on exception condition. 
O37E 817; 
O37E 818 
037E 819 ATT_INVALID: : 
0404 31 O37E 820 BRW ERROR_!INVALID ; Branch aid 
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G = DECODE ACKNOWLEDGE MESSAGE “-SEP=-1984 4 (RMS SRCINTO DEC ODE .MAR;1 

¢ -SBTTL ACK_MSG = DECODE ACKNOWLEDGE MESSAGE 

4 3++ 

‘ ; There are no operand fields in the Acknowledge message. 

8 

9 


ACK_MSG: ; Code segment of mainline 
BRW EXIT SUCCESS : Message syntax is correct 


—) 2 4 2» 4 4 
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-SBTTL CMP_MSG = DECODE ACCESS COMPLETE MESSAGE 


NTODECODE Dd 15-SEP-19 
vo4=600 


zm 
uO 
m> 

a 


Decode the operand fields of the Access Complete message. 
CMP_MSG: ; Code segment of mainline 
: For optional fields, apply default values as appropriate. 

<there are no defaults to apply> 

Process the access complete function field (required). 


58 0846'CF 9E MOVAB W*ERROR_FORMAT,R8 3; Specify transfer address on EOM 


STORE_FIELD “CMPFUNC, 1 -K_FIX ; Save access complete function field 


0.00 09 C0 09 Co C0 C0 Cd 0D CD CD CD CO CO COCO CO CD COCO COON CNCNCNCOCOCDCDCOCDCDOD Om 
PAEXEQLEQDMAMA ns BE BBE LE EWAN CO 


AMEN SO OONAUE WN OOONAUE WI OOCONOULS WN OM 
a 


E 
S$ 
0384 
4 
4 
0384 
0384 
0384 
0384 
0384 
0384 
0384 
0384 
8 4 
4 
0384 
0384 
0384 
0384 
0384 
0384 
0389 
0390 
0390 ASSUME DAPS$K_CLOSE EQ 1 
0390 ASSUME DAPS$K_RESPONSE EQ 2 
0390 ASSUME DAP$K"RESET EQ 3 
0390 ASSUME DAPSK_DISCONN EQ 4 
0390 ASSUME DAPS$K_SKIP_FILE EQ 5 
0390 ASSUME DAPS$K_CHANGE_B EQ 6 
0390 ASSUME DAPSK-CHANGE-E EQ 7 
8 ASSUME DAPSK_TERMINATE EQ 8 
66 95 0390 TSTB (R ~ ; Branch if value is 
2B «613 «20392 BEQL CMP_INVALID ; too low 
08 66 91 0394 CMPB (ROT ADAPSK _TERMINATE ; 6or ’ 
26 «611A «(0397 BGTRU CMP_ iNVALID™ ; too high 
0399 86 
0399 866 ; ; : , ; 
0399 867 ; Process the file options field (optional). 
0399 B69 
58 O86E'CF 9E 0399 870 MOVAB W*EXIT =SUCCESS. a ; ALL done if end-of-message 
0 3 871 STORE_FIELD FOP2,4 XT ; Save file options field 
8 ; He CHECK_MASKS FOP,4 ° :; Validate bit options 
Baa! sre H . / 
0381 75 ; Process the CRC checksum field (optional). 
tet a78 3 
8 1 87 
381 78 STORE FIELD CHECK,2,K_FIX ; Save CRC checksum field WER 
0388 79 SSETBIT at X_CHECK,- ; Denote field explicitly s specified 
tts 80 B_X_FIELD(R) ; (to distinguish between CRC value 
038D 881 ; of zero and none specified) 
68 17 0380 Ho JMP (R8) ; Message syntax is correct 
O38F 8 
36F Se 5 ‘ =F 
3BF 5 ; Branch here on exception condition. 
3BF 86 ; 
3BF 87 
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DECODE DAP MESSAGE ¢ 41 
DAT_MSG = DECODE DATA MESSAGE -SEP=1984 16:20:34 CRMS.SRCINTODECODE.MAR;1 1) v04 
f 4 -SBTTL DAT_MSG = DECODE DATA MESSAGE 
C 38 p++ 
: 3¢ : Decode the operand fields of the Data message. 
C 96 ° 
: 3 DAT_MSG: ; Code segment of mainline 
C 99 ; 
: 44 : For optional fields, apply default values as appropriate. 
Co 902° 
48 A9 69 7€E 8 ee $08 MOVAQ (R9),DAPSQ_FILEDATA+4(R9) ; Initialize descriptor 
03¢6 905 ; 
8 ce 2 ; Process the record number field (required). 
03C6 908 : Note: Since there is no menu for the Data message (an unfortunate oversight 
Beee 909 ; in the DAP spec), this field must be present. However, it is necessary 
03C6 §=910 ; to distinguish between receiving a null value and a zero value, so that 
036 911; it can be determined whether the RECNUM field overrides the KEY field. 
036 3i¢ ; To solve this problem, the DAP spec states that a byte count of zero 
0306 913; for this image field means that no value has been specified. l.e., 
03C6 914 ; <byteO = 0> means ignore field, whereas <byte0 = 1 and bytel = 0> means 
03C6 «915; a value of zero overrides the KEY field value. 
03C6 318 ; 
03C6 «91 
O846'CF 9E 0306 918 MOVAB W*ERROR_FORMAT,R8S ; Specify transfer address on EOM 
5B 01 Ci +O3¢CB) (919 ADDL3 #1,R11,AP ; Mark address of next byte + 1 
O3CF 920 STORE_FIELD RECNUM1,4,K_IMG ; Save record number field 
5C 5B D1 0306 921 CMPL R11,AP ; Branch if this image field was 
05 13 0309 9 ¢ BEQLU = 10$ $ exactly one byte. ong am 
3308 9 SSETBIT #DAP$V_X_RECNUM,- ; Denote field explicitly specified 
308 9-924 DAPS$B_R_FIELD(R9) : im message 
beep 925 
3EO 96926 ‘ : 
03E0 44 : Process the file data field (optional for zero length record). 
gus 
O86E'CS 9E O3E0 380 108: MOVAB W*EXIT_SUCCESS,R8 ; All done if end-of-message 
O3€5 931 STORE _FIELD FILEDATA,8,K_ROM,<M_DESC> : . 
O3EC 338 3; Save descriptor of user data string 
O3EC 3893 3; (the record/biock just received) 
68 17 O3EC 934 JMP (R8) ; Message syntax is correct 
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54+ 
; Decode the operand fields of the Status message. 


STS_MSG: ; Code segment of mainline 


: For optional fields, apply default values as appropriate. 


50 A9 69 = =7E MOVAQ (R9),DAPSQ_STX(RI) i Initialize descriptor 


; Process the status code field (required). 


58 O846'CF 9E MOVAB W*ERROR_FORMAT,RS : Specify transfer address on EOM 


STORE_FIELD | “STSCODE,2,K_FIX : Save status code field 


: Process the RFA, RECNUM, STV, and STX fields (optional). 
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58 O86E'CF YE MOVAB W*EXIT_SUCCESS,R8 ; ALL done if end-of-message 
%6 STORE_FIELD RFA,6,K_IMG ; Save record file address field 
96 STORE_FIELD RECNUM2,4,K_IMG ; Save record number field 
964 STORE_FIELD STV,4,K_IMG Save secondary status value field 
965 STORE —FIELD STX,8,K_1MG,<M_DESC> 
966 ; Save descriptor of secondary status 
967 ; text field 
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68 17 968 JMP (RB) ; Message syntax is correct 


58 O86E'CF 

58 0846'CF 

5C = 66 

50 5C 13 00 
F4 AF 
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SG = DECODE KEY DEFINITION MESSAGE -SEP-1984 16:20:34 (CRMS.SRCINTODECODE.MAR;1 (13) 
421 0 -SBTTL KEY_MSG = DECODE KEY DEFINITION MESSAGE 

181 39 

j++ 

2 : 78 ; Decode the operand fields of the Key Definition message. 

401 975° 

421 $76 KEY_MSG: ; Code segment of mainline 

18} 9 

: 444 ; For optional fields, apply default values as appropriate. 

421 981° 

421 9 MOVAQ = (R9),DAPSQ_KNM+4(R9) ; Initialize descriptor 

4 : % 

4 984 ; 

425 985 ; Process the attributes menu field (optional). 

389 ; Each bit set denotes that its associated field follows in the message. 
4 988 © 

425 389 ASSUME DAPSV_FLG+1 EQ DAPSV_DFL 
0425 990 ASSUME DAPSV_DFL+1 EQ DAPSV~IFL 

0425 991 ASSUME DAPS$V_IFL+1 EQ DAP$V_NSG 
0425 99¢ ASSUME DAPS$V"NSG+1 EQ DAPSV-REF 
0425 99 ASSUME DAPSV-REF+1 EQ DAPSV~KNM 
0425 994 ASSUME DAPSV_KNM+1 EQ DAPS$V_NUL 
0425 995 ASSUME DAP$V_NUL+1 EQ DAP$V_IAN 
0425 99 ASSUME DAPSV_IAN+1 EQ DAPSV_LAN 

0425 99 ASSUME DAP$V_LAN+1 EQ DAP$V_DAN 
0425 998 ASSUME DAPSV"DAN+1 EQ DAPS$V~DTP 
0425 999 ASSUME DAPSV-DTP+1 EQ DAPS$V-RVB 
0425 1000 ASSUME DAPSV-RVB+2 EQ DAPS$V"DVB 
0425 1001 ASSUME DAPS$V~DVB+1 EQ DAP$V~DBS 
0425 100¢ ASSUME DAPSV~DBS+1 EQ DAP$V_1BS 
04 3 100 ASSUME DAPS$V~IBS+1 EQ DAPS$VLVL 
0425 1004 ASSUME DAPSV“LVL+1 EQ DAPSV_TKS 
Be 5 4 ASSUME DAPS$V_TKS+1 EQ DAPSV_MRL 
04 : 1509 MOVAB W*EXIT_SUCCESS,R8 ; ALL done if end-of-message 
042A 1008 STORE_FIELD KEYMENU,4,K_EXT ; Save key definition menu field 
Be 1 1999 CHECK_MASKS KEYMENU,4 ; Validate bit options 

43p 1010 MOVAB- W*ERROR_FORMAT,R8 ; Specify transfer address on EOM 
pee 1011 MOVL (R6) , AP ; Copy menu to scratch register 
44 Ha KEY_LOOP: ; 

445 101 FFS #0,#DAPSV_MRL+1,AP,RO ; Get position of next bit set 
44A 1014 SCLRBIT RO,AP ; Clear menu bit just found 
044E 1015 PUSHAB B*KEY_LOOP ; Push return address on stack 
451 1 18 SCASEB SELECTOR=RO- : Next field: 

451 101 DISPL=<- ; 

451 1 18 10$- : «FLG 

cat if a 

451 1021 40$- ; NSG, POS, SIZ 

451 1 ¢ 50$- : «REF 

451 1 ope- :) «OKNM 

451 1024 0$- > NUL 

th 1025 Bae ; =IAN 

451 1026 0$- > LAN 
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rest i KEY_MSG = DECODE KEY DEFINITION MESSAGE amet 7 98:38: 44 RMS .SRCINTODECODE .MAR; 1 . (13). 
1 1027 100$- ; DAN 
sy 3 110$- 3; OTP 
451 1 120$- 3; «ORVB 
451 1 , 0 naan 3; Reserved 
451 1 1 ; odvB 
451 1 § 150$- ; «DBS 
451 1 ta ; 18S 
451 1034 170$- ; LVL 
451 1035 180$- ; «TKS 
rt : : $ : 190$- ; MRL 
O3FO = 31 478 : BRW EXIT_SUCCESS : Message syntax is correct 
47E 1040 ; 
bere : cg 3; Process each field specified in the menu (optional). 
47E 1043 ° 
Oc i 10$: STORE_FIELD FLG,1,K_EXT ; Save key options field 
05 ot 1 Hk us CR AASES FLG,1 ; Validate bit options 
0 pegs 1947 20$: STORE_FIELD DFL,2,.K_FIX + Save data bucket fill quantity field 
05 Beoe 138) 30$: STORE_FIELD IFL,2,K_FIX ; Save index bucket fill quantity field 
rH 1051 40$: STORE FIELD NSG,1,K_FIX : Save number of key segments field 
52 66 9A O4A 1938 MOVZBC (R6),R2 ; Use number of segments as loop count 
C 13 Q46A6 105 EQL 47$ : Branch if zero 
08 2 D1 O4A8 1054 CMPL R2,48 ; Check for value too high 
28 «1A 04AB 1055 BGTRU 49$ : Branch on error 
50 4C AY 3E& Q4AD 1056 MOVAW DAP$W_POS(R9) ,RO ; Get address of POS array 
51 5C Ad 9E 0481 1057 MOVAB DAP$B_SIZ(R9),R1 ; Get address of SIZ array 
07 BB 0485 1058 458: PUSHR  #*M<RO,R1,R2> 3 ; 
0487 1059 STORE_FIELD POS_TMP,2,K_FIX ; Find next key segment size field 
01 BA Q4BE 1060 POFR #*A<RO> ; 
ee j Save 4 in array 
04C¢5 1068 STORE_FIELD SIZ_TMP,1,K_FIX : Find next key segment size field 
07 BA O4CC 1064 POP #*M<RO,R1,R2> : : 
81 66 90 Dace 1065 MOVB = (R6),, (R1) + : Save it in array 
E1 52 eid 1996 ‘73 sceete R2,45$ : Branch if more segments to go 
7F 611 «0405 1068 49$: BRB __KEY_INVALID ; Branch aid 
0 Reee 1388 50$: STORE _FIELD REF ,1,K_FIX : Save key of reference field 
bab 1974 60$:  STORE_FIELD KNM,8,K_IMG,<M_DESC> 
04E6 1076 ; Save descriptor of hey name string 
28 «666091 BSE8 107 CMPB (R6) ,#40 3; Check for string too long 
6B 1A 04E9 1074 BGTRU KEY_{NVALID : Branch on error 
20 66 91 O4EB 1075 CMPB R6),# ; Check for string too long 
66 iA air id: BGTRU KEY_{NVALID ; Branch on error 
0s nt : A 708: Br ORE FIELD NUL,1,K_FIX : Save null key character field 
0 ars 1980 80$: STORE_FIELD 1AN,1,K_FIX Save index area number field 
BR 1088 90$: STORE_FIELN LAN,1,K_FIX F Seve lowest level index area number 
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KEY_MSG = DECODE KEY DEFINITION MESSAGE -SEP-1984 tf: 36: 34 734 (CRMS.SRCINTODECODE .MAR; 1 " cia 
05 208 1084 RSB : | 
05 o? } 5 100$:  STORE_FIELD DAN,1,K_FIX ; Save data area number field 
V } ; 110$:  STORE_FIELD DTP,1,K_FIX ; Save key data type field | 
518 1089 ASSUME DAPSK_STG EQ 
518 1090 ASSUME DAPS$K~ “ing EQ 
518 1091 ASSUME DAPSK-BN2 EQ § 
518 1 3 ASSUME DAPSK_IN4 EQ 
518 109 ASSUME DAPSK_BN4 EQ 4 
518 1094 ASSUME DAPSK_PAC EQ 5 
b2! 1095 ASSUME DAPS$K “Ing EQ § 
13 : 3g ASSUME DAPSK_BN8 EQ 
07 66 91 $318 1098 CMPB (R6) , #DAPS$K_BN8 ; Check for value too high 
39 1A 051B 1099 BGTRU KEY_ {NVALID™ ; Branch on error 
05 051D 1100 RSB : 
0 beig M133 1208: STORE FIELD RVB,4,K_IMG ; Save root bucket start VBN field 
0 B : 1108 1408: ZISRE 7 AELB DVB,4,K_IMG > Save first data bucket start VBN field 
0 82 3 1332 150$: BIORe FIELD DBS,1,K_FIX ; Save data bucket fill size fieid | 
0s 8236 1108 160$: STORE FIELD 1BS,1,K_FIX : Save index bucket fill size field 
0 43 1199 1708: STORE FIELD LVL,1,K_FIX + Save level of root buckets field | 
0s Bete WN} 180$: STORE_FIELD TKS,1,K_FIX : Save total key size field | 
Baek 1118 190$:  STORE_FIELD MRL,2,K_F IX : Save minimum record Length to contain | 
05 0555 1114 RSB : key field 
0556 1115 
0556 1116 ; 
0556 1117 ; Branch here on exception condition. 
0556 1118 ; 
0556 1119 
0556 1120 KEY_INVALID: ; 
O2FC 31 0556 1121 BRW ERROR_INVALID ; Branch aid 
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-SBTTL ALL_MSG = DECODE ALLOCATION MESSAGE 


DECODE DAP 
ALL_MSG = D 


Zoe 
; Decode the operand fields of the Allocation message. 


ALL_MSG: ; Code segment of mainline 
For optional fields, apply default values as appropriate. 
: <there are no defaults to apply> 


Process the allocation menu field (optional). 
Each bit set denotes that its associated field follows in the message. 


MESSA 
ECOD 
1123 
1124 
1188 
22 11 5 
1128 
559 1129 
559 1130 
559 1131 
559 11 ¢ 
559 11 
Bee 1134 
055 i" 3 
0559 11 > 
0559 1138 
0559 1139 
Bee 1140 
559 1141 
055 1126 ASSUME DAP$V_VOL+1 EQ DAPS$V_ALN 
0559 114 ASSUME DAPSVIALN+1 EQ DAP$V_AOP 
0559 1144 ASSUME DAPS$V~AOP+1 EQ DAP$V~LOC 
0559 1145 ASSUME DAP$V_LOC+2 EQ DAPS$V_ALQ2 
055 1328 ASSUME DAPS$V_ALQ2+1 EQ DAPS$V_AID 
0559 114 ASSUME DAPS$V"AID+1 EQ DAP$V_BKZ 
Bee 1133 ASSUME DAP$V_BKZ+1 EQ DAP$V_DEQ2 
58 O86E'CF QE p38 1150 MOVAG W*EXIT_SUCCESS,R8 ; ALL done if end-of-message 
O55E 1151 STORE _FIELD me re eal ; Save allocation menu field 
bee 1126 CHECK_MASKS ALLMENU, ; Validate bit options 
58 O846°CF 9€ 056d 115 MOVAB- W*ERROR_FORMAT,R8 ; Specify transfer address on EOM 
5¢ 66 3€ 0572 1154 MOVZWL (R6),AP ; Copy menu to scratch register 
0575 1155 ALL_LOOP: 3 . 
50 5C 09 00 EA 057 1338 FFS #0,#DAPS$V_DEQ2+1,AP,RO ; Get position of next bit set 
OS7A 115 SCLRBIT RO,AP ; Clear menu bit just found 
F AF QF QS7E 1158 PUSHAB B*ALL_LOOP ; Push return address on stack 
F394 1159 SCASEB SELECTOR=RO- 3; Next field: 
0581 1160 DISPL=<- 3 
0581 1141 0$- : VOL 
B28) 1186 0$- ; ALN 
581 116 0$- ; AOP 
0581 1164 40$- : Loc 
0581 1165 ERROR_FORMAT- ; Reserved 
31 1196 ti 3; ALQ2 
581 116 0$- : AID 
3! 1168 80$- : BKZ 
581 1169 90$- : DEQ2 
B28) 1170 > 3 
0204 «31 0597 1171 BRW EXIT_SUCCESS ; Message syntax is correct 
59A 1106 
59A 1173; . 
59A 1174 ; Process each field specified in the menu (optional). 
59A 1175; 
59A 1126 ; 
59A 1177 108: STORE _FIELD VOL.2,K_FIX ; Save volume number field 
. SPR eo : 


ee 


L 6 
AGE 
E ALLOCATION MESSAGE 


— 
te 
nn 
vv 
te 
—- —-s 
ono 
coco 
‘~~ 
=r 
Ow 
meu 


6:4) AX/VMS Macro V04-00 Page G 
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DECODE DAP 
ALL_MSG - D 


MESS E 
G ECOD E 
A2 1180 ASSUME DAPSK_ANY EQ 9 
Ae 1181 ASSUME DAPSK_CYL EQ 
Ae 11 ¢ ASSUME DAPSK_LBN EQ 6 
Ao 11 ASSUME DAPS$K-VBN EQ 
2h 1 ¢ ASSUME DAPSK_RFI EQ 4 
5A2 1186 208: STORE_FIELD ALN,1,K_FIX ; Save alignment options field 
03 $6 91 Q5A9 11 5 CMPB ~ (R6) WOAPSK: VENT : Check for value foo high 
1A O5AC 1188 BGTRU  ALL_{NVALID 3; Branch on error 
05 OSAE 1189 RSB ; 
SAF 1190 30S: STORE _FIELD AOP,1,K_EXT ; Save allocation options field 
bee 1191 CHECK_MASKS AOP,1 ; Validate bit options 
0S 058C 1136 RSB ; ; 
p280 11935 40$: STORE _FIELD LOC,4,K_IMG ; Save starting location field 
05 05€4 1194 RSB : 
0s Bae? W132 60$: STORE_FIELD ALQ2,4,K_IMG : Save allocation quantity field 
0s Beco 1138 708: STORE_FIELD AID,1,K_FIX ; Save area identification field 
0 pepe BY 4 80S: STORE _FIELD BKZ,1,K_FIX ; Save bucket size field 
0500 1201 90$: STORE_FIELD DEQ2,2,K_FIX 3 Save default extension quantity field 
OS QO5E4 1 8 RSB : 
O5E5 120 
OSES 1204 ; : 
OSES 1205 ; Branch here on exception condition. 
OSES 1206 ; 
OSES 1207 
OSES 1208 ALL_INVALID: : , 
i ; Branch ai 
0260 31 OSES 1209 BRW ERROR_INVALID 8 h aid 
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Yoenboo SUM_MSG = DECODE SUMMARY MESSAGE ante 4 3:30:44 RMS.SRCINTODECODE .MAR; 1 ° (93) 
! 1) -SBTTL SUM_MSG = DECODE SUMMARY MESSAGE 
es 1 18 p++ 
2f : I ; Decode the operand fields of the Summary message. 
568 1 1 : 
5E8 1217 SUM_MSG: ; Code segment of mainline 
a8 1519 
i : 9 3 For optional fields, apply default values as appropriate. 
HH: 1 : é 
5€8 1 : <there are no defaults to apply> 
O5EB 1224 orti 
5E8 1225 ; 
OSE8 1 § 3 Process the summary menu field (optional). 
S268 : i ; Each bit set denotes that its associated field follows in the message. 
05E8B 1229 ° 
OSE8 1230 ASSUME DAP$V_NOK+1 EQ DAPS$V_NOA 
05€8 1231 ASSUME DAPS$V"NOA+1 EQ DAPS$V~NOR 
bees ! 3 ASSUME DAP$V_NOR+1 EQ DAPSV_PVN 
O86E'CF 9E OSEB 1234 MOVAB W*EXIT_SUCCESS,R8 ; ALL done if end-of-message 
OSED 1 $2 STORE_FIELD SUMENU,2,K_EXT ; Save summary menu field 
OSF4 1236 CHECK_MASKS SU * ; Validate bit options 
O846'CF 9E& OSFC 1 3 VAB- W*ERROR_FORMAT,R8 3; Specify transfer address on EOM 
5C 66 3C 0601 1238 MOVZWL (R6),AP ; Copy menu te scratch register 
0604 1239 SUM_LOOP: : 
04 00 EA 0604 1240 s #0,#DAPSV_PVN+1,AP,RO ; Get position of next bit set 
0609 1241 SCLRBIT A 3; Clear menu bit just found 
F4 AF 9F 060D ists PUSHAB B*SUM_LOOP ; Push return address on stack 
0610 124 SCASEB SELECTOR=RO- 3; Next field: 
0610 1244 DISPL=<- 3 
0610 1se2 10$- 3 NOK 
0610 1246 20$- 3: NOA 
0610 1247 30$- ; NOR (not used by RMS-32) 
0610 1248 40$- 3; «PVN 
0610 1249 > : 
O24F 31 pele : 39 BRW EXIT_SUCCESS ; Message syntax is correct 
O61F 1 26 3 
Bett ' 37 3; Process each field specified in the menu (optional). 
61F 1255 ° 
0 Bete ' 2$ 108: STORE_FIELD NOK,1,K_FIX ; Save number of keys field 
0 ? : 8 208: STORE_FIELD NOA,1,K_FIX : Save number of allocation areas field 
0s ? F } $ 30$: STORE_FIELD NOR,1,K_FIX : Save number of record descriptors field 
6 $ 1 6¢ 40$ STORE _FIELD PVN,2,K_FIX ; Save prologue version number field 
05 O063E 126 RSB ; 


NTODECODE DECODE DAP MESSAGE SEP-1984 AX/VMS Macro V04-00 Page 30 
YOee500 TIM_MSG = DECODE DATE AND TIME MESSAGE et 3: :3 44 RMS.SRCINTODECODE .MAR; 1 . (16) | 
$ : ! $3 -SBTTL TIM_MSG = DECODE DATE AND TIME MESSAGE 
63F 1 83 p++ 
: ! rf ; Decode the operand fields of the Date and Time message. 
3 f 7 TIM_MSG Cod f inti 
MSG: ; Code segment of mainline 
O63 1278 . 
063F 1273; 
8 : : fe ; For optional fields, apply default values as appropriate. 
86 eh 6 
63F 1277 : <there are no defaults to apply> 
063F 1278 
post 1279 ; 
Q63F 1280 ; Process the date and time menu field (optional). 
tt ’ + : Each bit set denotes that its associated field follows in the message. 
Wat 1588 
063F 1284 ASSUME DAP$V_CDT+1 EQ DAP$V_RDT 
063 1285 ASSUME DAPS$VIRDT+1 EQ DAPS$V~EDT 
063F 1286 ASSUME DAP$V_EDT+1 EQ DAPSV_RVN 
063F 1287 ASSUME DAPS$V_RVN+1 EQ DAPS$V_BDT 
O63F 1288 ASSUME DAPSV_BDT+1 EQ DAPSV_PDT 
bese 4 ASSUME DAPS$V~PDT+1 EQ DAPS$V_ADT 
58 O86E'CF 9E O63F 1594 MOVAB W*EXIT_SUCCESS,R8 : ALL done if end-of-message 
0644 1636 STORE “FIELD TIMENU,2,K_EXT : Save date and time menu field 
0648 129 CHECK_MASKS TIMENU,2 ; Validate bit options 
58 O846'CF 9E& 0653 1294 MOVAB™ W*ERROR_FORMAT, *R8 ; Specify transfer address on EOM 
5C 66 3¢€ 0658 1295 MOVZWL (R6),AP™ ; Copy menu to scratch register 
0658 1296 TIM_LOOP: : 
53 12 DO 0658 1297 MOVL #18,R3 : Declare size of time (CDT, RDT, etc.) 
065E 1298 : fields containing ASCII strings 
50 5C O07 00 EA 065 445 S$ #0, #DAPSV_ADT+1,AP,RO : Get position of next bit set 
0663 1300 SCLRBIT RO.AP ; Clear menu bit just found 
Fl AF QF 0667 1301 PUSHAB B“TIM ; Push return address on stack 
066A 1 8 SCASEB SELECTORS RO- : Next fieid 
066A 130 DISPL=<- 3 
066A 1304 10$- 3. tp 
066A 1305 20$- 3: ROT 
066A 1306 30$- ; EDT 
Ov.6A 1307 40$- 3; RVN 
66A 1308 50$- : BOT 
66A 130 60$- 3 «POT 
066A 1310 70$- 3; ADT 
066A 1311 > : . 
O1EF 31 pene 1316 BRW EXIT_SUCCESS 3; Message syntax is correct 
67F 1314; : : ; 2 
067F 1312 3: Process each field specified in the menu (optional). 
O67F 1 16 : 
67F 131 
67F 1318 10$: STORE _FIELD CDT,8,K_FIX,<M_SRCR3!M_DESC> 
0686 131) ; Save descriptor of creation 
0686 1320 ; date and time string 
35 11 0686 1321 BRB 100$ 3 
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BRB 100$ 
40$:  STORE_FIELD 
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BRB 100$ 
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BRB 100$ 

70$: STORE _Fiti9 
BRB 100$ 
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ESSAGE 1§-SEP- 
CODE DATE AND TIME MESSAGE “SEP- 
208: STORE FIELD RDT,8,K_ 
BRB 100$ 
30S: STORE _FIELD 


4 
4 


3:56:41 
6:20:34 


AX/VMS Macro V04-0 


0 Page 
RMS.SRCINTODECODE .MAR; 1 . 


X,<M_SRCR3!M_DESC> 


RVN,2,K_FIX 
BDT,8,K_FIX,<M_SRCR3!M_DESC> 


format ‘‘dd-mmm-yyyybhh:mm:ss.cc'’. 
100$: SUBL2 #<24+8>,SP 
MOVL #<18+2+%>,24(SP) 
MOVL. SP, 
MOVC3 #7.a4(R6), (SP) 
CMPB s-« (R14) , #*ANB\ 
BGTRU 1108 
MOVW  #*A\20\,(R3)+ 
BRB 120$ 
110$: MOVW #*A\19\,(R3)+ 
120$: MOVC3  #11,(R15,(R3) 
MOVL #*A\.00 (,(R3)+ 
BICB2 #*x20,3(SP) 
BI cBe #°X20,4(SP) 
BICB2 #*x20.5(SP) 
SBINTIM_S- 
T IMBUF =(R3) = 
TIMADR=(R6) 
ADDL2 #<24+8>,SP 
BLBC RO, TIM_INVALID 


PDT,8,K_FIX,<M_SRCR3!M_DESC> 


ADT,8,K_FIX,<M_SRCR3!M_DESC> 


Save descriptor of revision 
date and time string 


EDT,8,K_FIX,<M_SRCR3!M_DESC> 


Save descriptor of expiration 
date and time string 


: Save revision number field 


Save descriptor of backup 
date and time string 


Save descriptor of physical creation 
date and time string 


Save descriptor of accessed 
date and time string 


This sequence converts an ASCII time string into a 64-bit VMS binary time 
ote that the 64-bit result is stored in the quadword descriptor 
pointing to the time string on input. 


DAP defines network standard time as an 18 byte counted ASCII string in the 
format ‘‘dd-mmm-yybhh:mm:ss‘', whereas VMS uses a 23-byte ASCII string in the 


Allocate space from stack 
Form Coase terse of buffer to receive 
altered AS 


Else it's '00 - ‘69 ; 
Insert missing century digits 
Continue . 
Insert atssing century digits 
Copy bytes 8-18 of input string 
Add hundredths of second erase 
Note R3_now points to time descriptor 
Upcese s-gigit month string 
ecause S$SBINTIM objects to 
lowercase month . 
Convert ASCII time to veers time — 
Address of descriptor of ASCII string 
Address of 64-bit result value 
Deallocate space from the stack 
preach on conversion error 
x 


31 
(16) | 


NTO 
v04 


wsebape 


0148 


IM_INVALID: 
BRW 


15-SEP-19 
aE 218 


ERROR_INVALID 


AX/VMS Mac 
RMS.SRCINT 


Be 10:30:54 


: Branch aid 


o V04-00 


r 
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NTO 
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~SBTTL PRO_MSG = DECODE PROTECTION MESSAGE 


NTODE CODE DE 
v04-000 PR 


am 


p++ 
; Decode the operand fields of the Protection message. 


PRO_MSG: ; Code segment of mainline 


: For optional fields, apply default values as appropriate. 


4C A969 ~=«7E MOVAQ  (R9),DAP$Q_OWNER+4(R9) ; Initialize descriptor 


Process the protection menu field (optional). 
Each bit set denotes that its associated field follows in the message. 


ASSUME DAPS$V_OWNER+1 EQ DAP$V_PROSYS 
ASSUME DAP$V_PROSYS+1 EQ DAPS$V_PROOWN 
ASSUME DAP$V_PROOWN+1 EQ DAP$V_PROGRP 
ASSUME DAP$V_PROGRP+1 EQ DAPSV_PROWLD 


MOVAB  W*EXIT_SUCCESS,R8 ; ALL done if oranor~eaesea? 
STORE _FIELD PROMENU,2,K_EXT ; Save proection menu fiel 

CHECK _MASKS PROMENU, ; Validate bit options 

MOVAS” W*ERROR_FORMAT,R8 ; Specify transfer address on EOM 
(R6) , AP Copy menu to scratch register 


#0, #DAPS$SV_PROWLD+1,AP,RO; Get position of next bit set 
RO,AP 3; Clear menu bit just found 
B“PRO_LOOP 3 
SCASEB SELECTOR=RO- 3 
DISPL=<- 3 
10$- : 
20$- ; PROSYS 


58 O86E'CF 9E 


Cc 
nm 
. 


58 O846'CF YE 
5C 9 66 


50 5C 05 00 EA 


F4 AF oF Push return address on stack 


Next field: 


PROWLD 
; Message syntax is correct 


FAOAAOSAOSOCOW SYS S NM PWMMMMMMMmMmMmMmm > > > > rrr yr rrr pr PY 


> 
0127 =—31 BRW EXIT_SUCCESS 


: Process each field specified in the menu (optional). 


10$: STORE_FIELD OWNER,8,K_IMG,<M_DESC> ; . 
; Save descriptor of file owner string 
CMPB (R6) ,#40 Declare an error if owner string 
BGTRU  PRO_INVALID is too long 
20$: STORE _FIE D PROSYS,2,K_EXT 
30$: STORE FI D PROOWN,2,K_EXT 
4C$: STORE _FIELD PROGRP,2,K_EXT 


28 «466 = = (91 
« y 
19 Save system orotection field 


Save owner protection field 
10 #11 


a a kk kk kk kk dd dt TE 
Fe oe oe oP oF ot ot ot et ot ot at et et ak ee ee ae ae ee eh ee eh eh nd dead tad ab odabtanel 
SP AAAAAANNINIIPIDIPININPININININIDD 2 PS  MOOOOCOOCOOCOCOCOOOOOSOOOOOCWMOOMD OW 


=—OODWNOA UE WIN OOD NAME WIN 9 ODNAU EWN 0 ODNOAUE WN (OC ODNAUE WN OOOnNOu mio 
=z 
°o 
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~ 
. 
aed 
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Save group protection field 
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v04- PRO_MSG = DECODE PROTECTION MESSAGE -SEP-1984 4 (CRMS.SRCIN NTOD DECODE.MAR; 1 (17). 
07 11 076d 1408 BRB 100$ : 
oer 1907 50$: STORE_FIELD PROWLD,2,K_EXT ; Save world protection field 
776 «1445 ; 
776 1446 ; Perform common validity checks on data in the protection field being 
776 1447 ; processed. 
776 1448 ; 
8558 1449 
776 1450 100$:  CHECK_MASKS PROTECT,2 ; Validate bit options 
05 O77E 1451 RSB 3 
077F e236 
O77F 1453 ; , 
O77F 1454 ; Branch here on exception condition. 
O77F 1455 ; 
O77F 1456 
077F 1457 PRO_INVALID: ; 
00D3 31 O77F 1458 BRw ERROR_INVALID ; Branch aid 


——_——_ —---- --— ee 
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rs 1769 -SBTTL NAM_MSG = DECODE NAME MESSAGE 
7 1996 p++ 

Me 120? ; Decode the operand fields of the Name message. 

| 07 1465 
fh 1466 NAM_MSG: ; Code segment of mainline 
07 1467 
0782 1468 ; , 
078 1792 :; For optional fields, apply default values as appropriate. 
ores art 

48 A9 69 = 7E Ore 1006 MOVAQ (R9) ,DAPSQ_NAMESPEC+4(R9) ; Initialize descriptor 
0786 1474 ; 
0786 1475 ; Process the name type field (required). 
0786 1628 : 
0786 147 
58 O846'CF 9E 0786 1478 MOVAB W*ERROR_FORMAT,R8 ; Specify transfer address on EOM 
078B 1479 STORE_FIELD NAMETYPE,1,K_FIX; Save the name type field 
0792 1480 
0792 1481 ; : 
079 156 ; Process the name field (optional). 
0792 1483 ; 
0792 1484 
58 O86E°CF 9E 0736 1485 MOVAB W*EXIT_SUCCESS,R8 ; All _ done if end-of-message 
0797 1486 STORE_FIELD NAMESPEC,8,K_IMG.<M_DESC> 
O79E 1487 3; Save descriptor of name 
O79E 1488 ; specification string 
FF 8F 66 91 O79E 1489 CMPB (R6) ,#FWASC_MAXQUOTED ; Check for string too long 
02 1A O7A2 1490 BGTRU NAM_INVALID ; Branch on error 
68 17 O7A4 1491 JMP (RBS ; Message syntax is correct 
07A6 1026 
O7A6 1493 ; “—e 
O7A6 1494 ; Branch here on exception condition. 
O7A6 1495 ; 
O7A6 1496 
Q07A6 1497 NAM_INVALID: : 
OOAC 31 O7A6 1498 BRW ERROR_INVALID ; Branch aid 


6 7 | 
NTODE CODE DECODE DAP MESSAGE 15-SEP-1984 23:56:41 VAX/VMS Macro v04-00 Page 36 
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Bytel Offset of destination field in DAP control bloc 
Byte DAP field identifier (used to build DAP status -™ on error) 
Byte contret byte to direct processing of DAP field: 

Bits 0-3: ; Format of source fieid: 


7A9 K_EXT= “x00 : Extensible field format 
7A9 K-FIX= “x01 3; Fixed length field format 

07A9 K ~1NG= “x0 : Image field format 
7A9 K-ROM= “x0 ; _Rest-of-message field format 
7A9 Bits 4-7:~ : Field processing flags: 

Q7A9 M_DESC= “x1 ; Store only descriptor ot SRC field 
7A9 M~TRUNC=*X2 3 Veuncote extra than. O51 SRC field 
7A9 ; size is larger t ” i H field size 
7A9 M_SRCR3=*xX40 ; Size of SRC field nR 
7A9 ; (applicable Ae in K ik specified) 


Implicit Inputs: 


one i 9 -SBTTL STORE_FIELD - STORE NEXT FIELD ROUTINES 
7A9 1 
7A9 1 gi STORE FIELD = invoked from the STORE_FIELD macro results in the execution 
4 13 : : “of one of the following routines: 
Q7A9 1 $ : STORE _EXT ioserarets, the next field of the DAP message as an 
7A9 1507 ; extent ble field of 1 to 16 bytes and stores the data portion of 
i” 1208 3 he field in the designated field of the DAP control block. 
O7A9 1510 ; STORE_FIX interprets the next field of the DAP message as 
Brae 1511 ; fixed length field of 1 to 255 bytes and stores the String. in the 
Brae 1216 3 designated field of the DAP control block. 
O7A9 1514 ; STORE_IMG seter oxy - — field of the DAP message as an 
O7A9 1515; image “field of 1 to 2 bytes and stores the data portion of the 
toe 1218 3 field in the RAE field of the DAP control block. 
O7A9 1518 ; STORE_ROM interprets the next field of the DAP message as a 
O7A9 1519 ; binary field of 1 to 65535 bytes consisting of the rest of t 
O7A9 1520 ; message and stores the string in the designated field of the NSAP 
O7A9 1521 ; control block. 
O7A9 15 § ; 
O7A9 15235 ; Calling Sequence: 
O7A9 1526 ; 
O7A9 1525 ; BSBW STORE_FIELD 
O7A9 1526 ; 
O7A9 1527 ; Input Parameters: 
O7A9 1528 ; 
O7A9 1529 ; R3 Size in bytes of source field iff V_SRCR3 set and field is in 
O7A9 1530; fixed Length format 
O7A9 1531 ; R8 Address o Hae snag to execute if end-of-message encountered 
O7A9 1336 3 R9 Address of DAP control block 
O7A9 1533; R10 Address of last byte + 1 of DAP message being parsed 
Brae 1338 : R11 Address of next byte of DAP message being passed 
te 4 1337 ; In-Line coded arguments: 
07A9 1338 3 ByteO Size in bytes of the destination field in DAP control block 
1540 ; 
1541 ; 
1366 3 
13 : 
1544 ; 
1545 ; 
1268 ; 
1308 
1349 : 
1550 ; 
133! ; 
1388 3 
1328 : 
1 > 3 
1556 ; 


None 
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7A9 1557; 
7A9 1 § ; Output Parameters: 
7A9 «(1 5 
7A9 1560; + i Destroyed 
7A9 1561 ; orerese of feetrnatren field in DAP controi block 
7A9 1 66 3 Field ID val 
| FAS eee ra-n10 Sodetol nent & i 
5 pdated next byte pointer 
as 1388 ; Implicit Output 
s smplic utputs: 
7A9 1369 3 
bys 1208 : The specified field of the DAP control block is updated. 
07A9 1570 ; Completion Codes: 
O7A9 1571; 
O7A9 1376 3 None 
Q7A9 1573; 
O7A9 1574 ; Side Effects: 
O7A9 1575 ; 
O7A9 1576 ; If end-of-message is encountered, control is given to the specified 
QO7A9 1577; action routine. 
O7A9 1578; 
O7A9 1579 ; If a parse error is detected, control is given to an appropriate 
toe 1380 : error routine. 
O7A9 1382 3 An exception exit described above, leaves the return address on the 
O7A9 1583 ; stack. 
O7A9 1584 ; 
O7A9 1585 ;-- 
O7A9 1586 
O7A9 1587 STORE_FIELD: ; Entry point 
O7A9 1588 
O7A9 1589 : 
O7A9 1590 : Obtain the in-line coded arguments, check for end-of-message, and transfer 
O7A9 1591 : control to the appropriate routine. 
O07A9 1336 ; 
O7A9 159 
50 6€ DO O7A9 1594 MOVL (SP) ,RO :; Get address of in-line arguments 
55 80 9A O7AC 1595 MOVZBL (RO)+,R5 ; Get DST field size 
56 80 9A O7AF 1596 MOVZBL (RO)+,R6 3; Get DST field offs et 
56 59 CO OQ782 1597 ADDL R9,R6 ; Compute DST field address 
57 80 9A 0785 1598 MOVZBL (RO)+,R7 : Get DAP field ID value | 
52 80 9A 0788 1599 MOVZBL (RO)+,R2 ; Get control byte value 
gf 50 00 6788 1690 OVL RO, (SP) ; Bump return address past argument List 
A 58 01 O7BE 1601 CMPL = R11,R10 : Is there at least one byte left? | 
11. #18 O7C1 1686 BGEQ 10$ ; Branch if end-of-message 
51 52 04 00 EF O7C3 160 EXTZV #0,44,R2,R1 : Get index of routine 
07CB 1604 SCASEB SELECTOR=R1- : Dispatch on field format: 
07C8 1605 DISPL=<- 3 
7C8 1606 STORE _EXT=- ; Extensible 
7C8 1607 STORE _F IX- ; Fixed Length 
7C8 1608 STORE_IMG- : nage 
ore 1093 r STORE _ROM- ; Rest-of-message 
68 17 O7D4 1611 10$: JMP (R8) ; Jump to designated EOM routine 
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~SBTTL STORE_EXT = STORE EXTENSIBLE FIELD 


+ 

This routine interprets the next_field of the DAP message as an extensible 
stele of 1 to 16 bytes where bit7 of each byte determines whether to 

continue (1) the field to the next byte or to terminate (0) the field. 

First, the source field is compressed in a work area (i.e., bit7 of each byte 
is discarded and the remaining bits are squeceses together). Then, the 
seuarenser spring is copied to the specified destination field in the DAP 
contro ock. 


Be Se Oe Oe Oe Be Be Oe ee 
. o 


ASSUME DAPSK_TEMP GE 16 


site ast" Code segment of STORE FIELD 


SOOCCCCCOOCCOOCOCOCOOCOOOOCOCOOOCOOoOSoSO I 


SOONWOD OP SMMIDAPOOOOOSOPOOOSPOOOS ++} 


FEW AWWIWIWIII nnononononononnn oe 


tk kk kk tk kt 
ARO ODNOAOU EWN (OOO NAMES WN" OVOOnNOuUsrw OW 


0090 c9 —so9E OVAB DAPSL_TEMP(R9),R4 ; Get address of scratch work area 
50 D4 CLRL RO : Initialize bit position index 
534 CLRL 2 : Initialize byte count 

5A 5B ODI 10$: CMPL R11,R10 :; Error if ond-er-nesscee is reached 
$¢ 18 BGEQ ERROR_FORMAT : before end-of-field is reached 
5 D6 INCL R3 :; Increment b 

10 [> CMPL R3,#16 3 
5B OA BGTRU ERROR_FORMAT ; scratch work area 

50 6B F0 INSV (R11) ,RO,#7, (R4) 3; Copy lower 7 bits of next byte 
07 CO ADDL2 #7,R0 3; Update bit position index 
07 ~«E€0 BS #7,(R11)+,10$ ; Loop if field extends to next byte 
00 FO INSV = #0, RO, R35, (R4) ; Zero fill rest of SRC field 

; _(1 bit for each byte compressed) 
28 Soi BRB MOVE _FIELD ; Copy string to DST field 


| 
j 
| 
zse count | 
Branch if SRC field is longer than 
| 
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7FE 1643 -SBTTL STORE_FIX = STORE FIXED LENGTH FIELD | 
FEE Jec$ :+ | 
7FE 1008 3 3 “This voyt ine o ‘uae’ prets the next field of the DAP message as a fixed le ~— 
7FE 164 : field of 1 ytes and copies the string to the specified field in the 
7FE 1968 3; DAP control Block ° 
7FE 1649 ;-- 
7FE 1650 
7FE 1651 STORE_FIX: : Code pegnent of of STORE_FIELD 
03 38 06 EO O7F 163¢ BBS #V_SRCR3,R2,10$ 3 preneh f SRC field size is in r3 
5 5 DO 0802 165 MOVL Reene ; DST field size = SRC field size 
oe) oe B85 1654 10S: CMPL R3,41 :; Branch if field is longer than 
07 1A 0808 1655 BGTRU STORE_IMG1 : one byte 
66 90 O80A 1926 MOVB (R11)F, (R6) 3; Store field in DAP control block 
05 O080D 165 RSB 3 Exit 
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NTODE CODE GE 15-SEP-1984 23:56:41 VAX/VMS Macro V04-00 p | 
vet E IMAGE FIELD Be 93:38:43) TOD 29? (22) | Pst 


4 
5-SEP-19 RMS. SRCINFODECODE MAR; 1 (2 
.SBTTL STORE_IMG - STORE IMAGE FIELD | 


p++ 

; This routine interprets the next field of the DAP message as an image field 
: of 1 to 256 bytes where the first byte contains a count of the number of 
; data aytes o follow. The data portion of the field is copied to the 
3 specified field of the DAP control block. 


Code segment of STORE_FIELD 
Get byte count of SRC field 


Copy address of data spring 
Ok if <R3+R11> LEQ <R10> 
Error if not oneuge bytes in 
message to contain field 


-"MOVZBL (R11)+,R3 


’ 


6 


R11,R4 
ACBL  R10,R3,R11,MOVE_FIELD 
ERROR FORMAT 
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x's 
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~SBTTL STORE_ROM - STORE REST OF MESSAGE 


$ 


3++ 
3 This oy, pred ees the next field of the DAP message as a binary field 


3; of 1 to 655 ytes gons isting of the rest of the message. The string is 
3 copied to the specified field of the DAP control block. 
STORE_ROM: ; Code segment of STORE_FIELD 
53 SA 5B C3 SUBL3. -R11,R10,R3 ; Compute SRC field size 
54 58 00 MOVL R11,R4 : Copy SRC field address 
58 SA 00 MOVi R10,R11 3; Advance next byte pointer to EOM 
; <R3,R4> contains descriptor of SRC field, and 
3 <R5,R6> contains descriptor of DST field. 
MOVE_FIELD: Copy S9¢ field to DST field with 
zero 
18 52 «04 50 BBS #V_DESC,R2,DESCRIPTOR Branch if only descriptor desired 
66 55 00 64 53 C MOVCS R3,(R4),#0,R5, (RO) Move field to DAP control block 
OF 18 BLEQU 208 Done if all SRC bytes are copied 


(i.e., SRC size LEQU DST size) 
Get address of control flag 
parameter + 1 (i.e., return address) 
Done if extra bytes are to be 
truncated; note: 

RO = # unmoved bytes : 

R1 = address of unmoved string 
Error if any unmoved bytes are 


52 6E 00 
O7 FF A2 O05 €0 


MOVL  (SP).R2 
BBS #V_TRUNC,-1(R2) ,20$ 


10$: kA (R1)+ 


CGOOCOOCGOCOVOGOOCOCOCOCOCOCOOCO OOOO OOCOOOOOOOOOOOoOO tm 


PBL EAN NANA AAI AIRIPIPUNPIPONINUNINUNININ 2 2 PO OO Oe es 


WIN SMO D SS PS MVMPINIO FSO PSAPOOSPOMWONOOOOOOOONO 
WR OOOOH UE WN 0 OONO USWA) OOONOUES WH OVOOne OW 


Sete Se Ge Ge Fe Ge Ge Se Ge Ge Ge Se Se Ge Ge Ge Se Se Be 


BNE ERROR_UNSUPPORT non-zero 
» F9 SOBGTR RO,108 Continue until all extra bytes 
. are checke 
05 20$: RSB Exit 
DESCRIPTOR: DST field is a descriptor 
66 53 7D MOVQ R3,(R6) Store only quadword descriptor 
05 of SRC field and exit 


TEESE EE 
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if 1718 -SBTTL ERROR AND SUCCESS EXIT ROUTINES 
46 1717 ;+4+4 
4 1718 ; Message gorse has failed. 
: ay ; Build DAP Status message and exit to caller. 
beg 1721 ° | 
46 1722 ERROR_FORMAT: ; Format of message in incorrect 
08 90 ase 17 : MOVB #DAPS$_FORMAT,- ; Return MACCODE velue 
1B A9 pee 1724 DAP$B_DCODE _MAC(R9) 3 
01 10A9 Di OB4A 1725 CMPL DAP$Q_MSG BOF2(R9),#1 ; Check for one-byte message 
15 «12 pee 17 § BNEQ ERROR_COMPON ; Take common pat not 
57 08 9A 50 17 MOVZBL M#DAPS$_FLAGS,R7 ; Change to flags field ID code 
0853 1728 ; because format error was caused 
0853 1729 3 by no flags field in message 
10 11 0853 1730 BRB ERROR_ COMMON ; Take common path 
0855 1731 ERROR_INVALID: ; Field of message has invalid value 
09 90 0855 736 MOVB #DAP$_INVALID,- ; Return MACCODE value 
1B A9 0857 173 DAP$B_DCODE_MAC(R9) : 
OA 11 0859 1734 ERROR_ COMMON ; Take common path 
0858 1735 ERROR_SYNC: ; Message received is out-of-sequence 
OA 90 0858 1736 MOV #DAP$_MSG_SYNC,- 3; Return MACCODE value 
1B AY 085D 1737 DAPSB_DCOBE_MAC(R9) : 
04 11 O85F 1738 BRE ERROR_ COMMON ; Take common path 
0861 1739 ERROR_UNSUPPORT: ; Field of message has unsupported value | 
02 90 0861 1740 MOV #DAPS$_UNSUPPORT,- ; Return MACCODE value 
1B AS 0863 1741 DAP$B_DCODE_MAC(R9) : 
0865 17g ERROR_COMMON: ; Common error exit sequence 
19 AD 57 90 0865 174 MOV R7,DAP$B_DCODE_FID(R9) ; Return ID of field in error 
AY 94 0869 1744 CLRB DAP$L_DCODE_STS(R9) ; Indicate failure 
16 086C 1745 BRB EXIT_COMMON ; Join common exit code 
aan 
O86E 1748 ; Message parse has been successful so far, ... 
3; Make additional validity checks. 
O86E 1749 ; Make addi l validi heck 
Sie nee i 
086E 1736 EXIT_SUCCESS: ; Enter here on successful parse 
57 00 9A O86E 175 MOVZBL #DAPS “eed ; Set field ID to ‘unknown’ 
5A 5B D1 0871 1754 R11,RT ; Branch if there are any unparsed 
DO 3612 0874 1755 BNE ERROR_FORMAT 3; bytes Left in DAP message 
5 1A Ad «GAB 76 1736 MOVZBL DAPS$B_DCODE_MSG(R9),RO ; Get DAP message type ; 
1c AD) =6550)— «EV. «= OB7A «175 BBC RO, DAPSL MSG_MASK(R9) ,- ; Branch if this is not a valid 
DC fa: 1728 ERROR_SYAC 3 message to receive 
Ong 1700 
3; Check for system specific fields in message header. 
O87F 1761 ; Check f t ific fields i head 
Br ee | 
38 AD sé O87 1764 TSTL DAP$Q_SYSPEC(R9) : Any system specific fields? 
N ¥ e : yes, process them 
4A 12 2 1765 BNEQ SSP_MINI_MSG If h 
Si ins 
? 1768 3 Update message descriptors in DAP control block. 
4 1770 ° 
: ; Common exit sequence 
aug 1771 EXIT_COMMON c it 


message in buffer to parse 


SUBL2 7 : Store size of next (blocked) 


MOVL 
RET 


A 
A 
A 


. F 
$Q_MSG_BUF2(R9 
$Q"MSG BUF 1(R9 
$L“DCOBE_STS(R 


N 7 
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SUBL3 DAPS$Q_MSG_BUF2+4(R9) ,= 
10,DAP$Q-MSG_BUF2(R9) |; and store it in descriptor 
10, DAP$Q_MSG_BUF1+4(R9); Store address of next (blocked) 
) 
) 
9 


. 4 ; Compute size of message just parsed | 

MOVL = R10 | 
} 

DAP 

DAP message in buffer to parse 

DAP 


Get return status code 
Return to caller 


OoOOoooooo 
Qooo 0D CD CD CD 0D 0D 
OO O@cMc#CDC#D 
NWwemmnP>ne OCF 
~~ tes COE 
SONNE O 
SNS OOO 
WONOULWN Mo 


B 8 | 
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~SBTTL CHECK_MASKS = VALIDATE FIELD BIT OPTIONS | 


— 


p++ 
; CHECK_MASKS = invoked from the CHECK_MASKS macro examines the designated 
field for invalid and unsupported bits set. 


Calling Sequence: 
BSBW CHECK_MASKS 
Input Parameters: 


RG Address of designated field in DAP control block 
R Field ID value 


In-Line coded arguments: 
ByteO Size in bytes of the designated field in DAP control block 
Byten Mask of invalid bits (1-4 bytes; size specified in 3 hy 
Bytem Mask of unsupported bits (1-4 bytes; size specified in byte0) 
Implicit Inputs: 
None 
Output Parameters: 


RO-R1 Destroyed 
R6-R7 Unchanged 


Implicit Outputs: 
The specified field of the DAP control block is validated. 
Completion Codes: 


None 
Side Effects: 


If any invalid or unsupported bits are set, control is given to an 
appropriate error routine. 


ms epteptten exit described above, leaves the return address on the 
stack. 


Be Se Se Se Be Ge Se Be Ge Se Se Ge Ge Ge Se Ge Se Ge Ge Ge Ge Se Se Se Se Ge Se Ge Fe Ge Fe Ge Ge Ge Se Se Se Ge Ge Ge Ge Se Se 


CHECK_MASKS: Entry point 
MOVL 


COCO OCOCOCOCOCOCOCOCOCOCOCOCOCOOOCOCCOCOCOCOOOCCOCOOCOOCOOCOCOCOCOCOOCOOOOOOCOOOOOOOOOOOOoO 
Cd 09 CD Od Cd Cd Cd GO Gd CD Cd CD Od Od Od Od Od Od Od Od Cd Od Cd 09 Od OD Cd G0 Gd Cd Cd Cd GD Cd CD OD OD GD Cd CD CD Cd Cd Od 00 00 C0 09 0D 0D G9 G9 CD. CD00 OD 

WDOODOOOOOOO OOOO ODOOOOOOOOOOOOOOOOOOOOOOOOOOVOOOOOOOOOOOOOOOO 

rmmmrmmrnrn C Co900 0960000000 00 Gd 09 09 00 C0 09 0d 09 0d 09 09 0D C0 G0 CO C9 09 C9 09 C0 C9 Cd CD CD CD CO CD CD CD 

ee ce ed ce ae ed ce ee we ee ce ed ca a ce ce ee ee ee cee ce ce ce a ee ee cee ce a ce ee ee ce ec a ce ce a ae a ce a ee ed eed ee ed 

AAWAAN AAI GIPIPIPPDPPDNINDNID 2 9 9 OP FOO OODOOOOOOC OOOO OOO00 OO 0CO0000 0000 00 CD CD 0D 


NOUS WN @ OOD NAME WIN $$ O OD NOA ME WIN 9 OO NAU EWN 0 OO NA MEW CO OONOAUE Win 


50 6€ 00 (SP) ,RO ; Get address of in-line arguments 
51 80 9A MOVZBL (RO)+,R1 ; Get DST field size | 
SCASEB SELECTOR=R1- : Dispatch on field size: 
BASE=#1- ; 
DISPL=<- : 
10$- : 1l-byte 
Oi : 2-bytes 
8 0$- : Error 


ee re oe 


c 8 
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CHECK_MASKS = VALIDATE FIELD BIT OPTIONS a=SEP- 1382 % +38: 4] RMS.SRCIN NTOD DECODE .MAR; 1 ° (25) v0é 
9E 1 40$- 3; 4-bytes 
9E 1 38 > : , 
9A AA 1840 +08: BRB ERROR_FORMAT ; Value is out-of-range 
80 66 9 AC 1841 10$: BITB (R6),TRO)+ ; Check for ere bits 
AG 12 OBAF 1 4¢ BNEQ ERROR INVALID ; Branch on err 
80 66 9 pee) 184 BITB (R6), TRO) + 3; Check for unsupported bits 
12 11 OB8R4 1844 BRB 50$ 3; Join common 
80 66 8B 143 1845 20$ BITW (R6), (RO) + 3; Check for invalid bits 
9A 12 0889 1 4g BNEQ ERROR_INVALID : Branch on error 
80 66 863 O8BB 18 BITW (R6), TRO) + 3 Check for unsupported bits 
08 11 bee 1848 BRB 50$ 3; Join common code 
80 66 D 8 C 1849 40S: BITL (R6), (RO) + 3; Check for invalid bits 
90 12 O8C3 1850 BNEQ ERROR_INVALID + Branch on erro 
80 66 03 98C5 1851 BITL (R6), TRO) + : Check for wnaupperted bits 
97 12 08CB 185 50$:  BNEQ | ERROR_UNSUPPORT : Branch on error 
6—€ 50 D0 O8CA 185 MOVL RO, (SP) ; Bump return address past argument List 
05 O8CD 1854 RSB 3 Exit 


dD 8 
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7 oe 2$ -SBTTL SSP_MINI_MSG = DECODE SYSTEM SPECIFIC FIELD 
ce i 2 ie ad 
2 38 : Decode the system specific field found in the message header. 
CE 1860 ; : Treat it as the operand portion of a mini-message that has a menu field 
8CE 1861 : and related fields. 
BE ie 
8CE 1864 SSP_MINI_MSG: ; Code segment of mainline 
SA D tt; 1865 PUSHL R10 : Save end-of-message + 1 address 
5A 38 Ad D O8D0 1 96 mova’ DAP$Q_SYSPEC(R9) ,R10 ; R10 = size of syspec field 
tty 186 ; R11 = address of start-of-field 
5A 5B CO D4 1868 ADDL2 RII, R10 ; R10 = address of end-of-field + 1 
O8D7 1869 SZERO_FILL ; lero eyeten specific work area 
08D7 1870 DS T= DAPSL_SSPWA(R9) = : in control block 
0807 1871 SIZE=#DAPSK_SSPWA 3 
La 
O8E1 1874 : Process the system specific menu field (optional). 
O8E1 1875 ; Each bit set denotes that its associated field follows in the message. 
oer] a7? | 
td 1378 ASSUME DAP$V_SSP_CAP+1 EQ DAPSV_SSP_FLG 
58 O92F°CF 9E& O8E1 1880 MOVAB W*SSP_SUCCESS,R8 : Specify transfer address on EOM 
O8E6 1881 STORE FIELD SSP_ MENU, 2,K EXT: Save system specific menu field 
O8ED 1356 CHECK_MASKS SSP"MEN,2 ; Validate bit options 
58 FF4D CF 9E O8FS 188 MOVAB” W*ERROR_FORMAT, RB 3 tee transfer address on EOM 
x «& Zz ae 13Re cop PI (RED AP ; Copy menu to scratch register 
50 5C 02 00 EA O8FD 1886 s F #0, #DAPSV_SSP_FLG+1,AP, RO: Get position of next bit set 
0902 1887 SCLRBIT RO,AP ; Clear menu bit just found 
F4 AF QF 0906 1888 PUSHAB B°SSP ; Push return address on stack 
bd 34 $CASEB SELECTORS ORO 3: Next field: 
0909 1891 10$- > SSP_CAP 
44 1938 " 20$- : SSP_FLG 
1¢ 36.11) 0911) 1894 BRB SSP_SUCCESS ; ALL fields parsed 
gh 18s 
0913 1897 : Process each field specified in the menu (optional). 
gy ae 
$31 1500 10$: STORE_FIELD SSP_CAP,4,K_EXT,<M_TRUNC> 
0s Bota 1983 ace 3 oye, syeten specific capabilities 
; _fie 
B38 1908 208: STORE_ viet D SSP_FLG.4,K_EXT ; Save system specific flags field 
83 1908 oe ECK-MASKS SSP_FLG,4 ; Validate bit options 
05 O92E 1905 RSB ; 
3 18h 
3 : 1308 : System specific mini-message has been parsed successfully! 
92F 1910 ° 
03 F 1911 SSP_SUCCESS: ; 
50 BEDO O92F 1912 POPL RO ; Throw away return address on stack 
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POPL 


R10 ; Restore address of end-of-message + 1 
BRW EXIT_ COMMON : 


Exit here because this routine 
was entered from EXIT SUCCESS 


; End of module 


~SEP- 256: AX/VMS Macro V04-00 Page 48 
Cn serena teae Pecos att 9 95:38:44 FRMS  SRCINTODECODE MAR: 1 (26) 
Symbol table 
i = 9999999 Sr oe seen 
SSRMcTE A DAP$B_NUL 6D 
SERMS POU : 5 1 AP$B-0 00045 
SERS -TBUCCHE = b0000 3 DAP$B-OSTYPE 42 
$SSRMS_ TBUGCHK = 000 4 apee.0 a0 cg 
ACER . i 8 iR 01 DAPSB-RAT 000004 
ACTING 000 & 1 DAP$B_REF 3908 6C¢ 
toon 0000 25 R 1 DAPSB_RF 0 44 98 
ALLTASG 00000559 R 1 DAP$B_SHR 444 
ALL_MSG $0086 ; a 01 DAP$B_SIZ 000005C 
ATT“LOOPY 0000 & B 1 DAP$B_SIZ_TM 96 BA 
ATI “ASE 80090 § B 8 DAP$B-STREAMID 32 
CHECK 00000747 H 01 DAP$B_TKS 000007F 
IG Ee -cILE SUSTER 00000898 R 01 DAP$B_TYP 0000030 
HG re -naras 001D2 R 01 DAP$B-USRNUM 4 
CHECK-OPERATING SYSTEM 000 1p 4 4 DAP SE _USRNUA 44 9 
wim Mitte R 01 DAP$B_VERNUM 00000044 
renee itdaat R 01 DAPSE A FIELD 90000026 
: doooo0g6 © DAPSK TAC _MSG = $0000008 
er Ste 00000041 DAPSK~ ACK” MSG 3 444444 4 
DAPSBTAIOS 00090050 DAPSK_ALLMENU_I = QOO0FE1 
DAPSB-ALN 000044 DAPS$K-ALLMENU_U = 00000000 
DAP SBADP intatee DAPSK-ALL_MSG” = 00000008 
4 “BIT 0000035 APSK-ANY™ = 00000000 
SPSS BLS §0990950 DAPS$K_AOP_1I = 444 5484 
DAPSO-BLE 90000086 PAPER ATTRENU_I = FFEO8O00 
DAPSB BST §0090085 DAPSK-ATTMENU_U = 00000000 
~the 00040 DAPSK_ATT_MSG = a4: 
SAP Se CONE UNE $5 0909¢0 PS$K_ 000000C¢ 
SPSS CTEEUNE $00 040 DAPS$K-BLS_D = 44440444 
Ose DANO titties DAP$K BN2- = 00000002 
DAPSB-DAT 00044 DAPS$K~BN4 = 00000004 
DAPSBTDBS 000 007¢ DAPS$K_BNS = 00000007 
yates $O080079 DAP$K-BSZ_D = aS 4 
PAP Se prope Aa 60 0018 DAPSK- CHANGE B = 00000006 
DAPSB-DEODE-ASG S00N00TR DAPS$K_ CHANGE _E = 00000007 
SPSS DETER ite 047 DAPSK-CLOSE ~ = 00000001 
yrs Batt $008007% DAPSK_CMP_MSG = 00000007 
AP “ECONUM §0000045 APSK"-C = 00000050 
CAP SBT FA $0090 4 DAPSK~CNF_MSG = 00000001 
PAPSBFIL 00 rk DAP$K~- CON MSG = ise 
PAP SBF LAGS itd 31 DAP$K~COPOS11 s 00D 
pee rtO. 00000048 DAPSK_CTL_MSG ° 4 4 
ares Bh) 0009 ee DAP “bAyATYP = 00000002 
yeti 0 $ DAPSK-DATATYP” 1 = 00000004 
yateut 4? DAPSK-DATATYP7U = 90000088 
DAPSBL An F DAPSK_DAT_MSG + B08 
DAP$B_LEN256 ‘ DAPSK DEV I . $ 
DAPSOcLVL DAP$K_DISCONN = 4 
Spree 4 DAPSK~FCS11 = 4 
PPEeTMOAT 4 DAPSK—F IX = 8 3h 
DAP$B_NOK 000044 DAPSK"FLAGS 1 
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=a 
on. 
coo 


OOo *OOCOCO—-CoOooO 


COooouwccz 
~ cs 
wn” 
HnHnnnnnnnnnnnnnnn 


OOODODOCOOSCSO "OQOOOCOCO "O00 


DAPSL~CMWA 
DAPSL-CRC_RSLT 
DAPSL~DCOBE_STS 
DA EV 


FNS ANND HVE & FOOCOOCOOOOOCOOWDSo Oo 


OOOO MOM OOCOODODOM FDWON FOWDON WW & & FWWDWDWDOOCOM OWN FNVOVNOODOVSOOD@ON Y™ 
. 


APSL_MRN 
DAPSL_MSG_MASK 
DAPS$L_RECRUM1 
DAP SL _RECNUNZ 


DAPSL-SSP_CAP 
DAPSL~SSP~FLG 
DAPSL~STV 
DAPSL-TEMP 
DAPSM~BITCNT 
DAPSM~BLKCNT 
DAPSM~CMPFMT 
DAPSM_DF TSPEC 


DAPSM~DMO 
DAPSM_DSP_ 3NAM 
DAPSM~EMBEDDED 
DAPSM"GET 


DAPS$M_SEGMENT 


pa 
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DAPSA_THP1S = gon9ne? pansy -GF8-V8z = 99090058 
DAPSM_TMP $ s DAP$V~GEQ-V s 4 
rs A = F DAP$V~GEQ"V 5 $ 
DAPSA_ThP = 00 DAP$V~GEQ_V71 . 
DAPSM_ZERO DAP$V"HBK™ = 0 1 

arse. $0906 DAPS$V-1AN = 30000007 
eter 000000 DAPS$V~IBS aes 4'44'4 4 
DAP$Q_DCODE_FLG 444544 DAPSVTIFL : 002 
parse roe hg DAPSV_KNM = 8900000 
DAP$Q_FILEDATA 4 Oe bee DAPSV"LAN = : 
DAPS$Q_F ILESPEC 00000048 DAP$V_LEN256 = 0000000 
DAPSO_KEY 00000064 DAPSV_LENGTH = 90000001 
DAPSO_KNA tatty DAPSV~LOC = 00000003 
DAP$Q_MSG_BUF 1 00000010 DAPSV—LRL = 00000010 
DAP$Q_NAME SPEC 0000048 DAPSV_MRL = 00000012 
DAP$Q—OWNER 44454 45 DAPSV_MRN = 00000009 
DAP$Q_PASSWORD 444 45 DAPSV "MRS = 00000005 
DAP$Q_PDT 00000050 DAPSV-NOA = 00000001 
DAP$Q_RDT 000005¢ DAPSV "NOK = 00000000 
DAPSQ-RUNSYS 44444 £4 5 DAPSV“NOR = 00000002 
DAP$Q_ST 00000028 DAP$V_NSG = 0000000 
DAP$Q_SYSCAP 45 +4 DAPSV"NUL = 00000006 
DAPSQ—SYSPEC a 44454 44 Psy = 00000001 

reve = 00000006 DAPSV~OWNER = 00000000 
DAPS$V_AID = 90000001 DAPS$V PDT = 00000005 
ve = 00000006 DAPSV~PROGRP = 00000003 
DAP$V_ALQ1 = 00000005 DAP$V~PROOWN = 00000002 
8 = 00000002 DAPSV~PROSYS = 00000001 
DAPSV_A = 00000004 DAPSV~PROWLD = 00000004 
DAP$V_BDT = 00000003 P$V~PV = 00000003 
DAP$V_BITCNT = 0 itt DAP$V7P_OS = 0000003C 
DAPSV_BKS me 4 $4.14 DAPSV-RAT = 00000003 
DAPS$V_BKZ me 44544 4 DAPSV-RDT = 00000001 
DAPSV_BLS = 0000000D DAPSV_REF = 00000004 
DAPSV_BSZ = 00000000 DAPSV_RFM : 90000002 
DAPS$V-CDT = 00000009 DAPSV_RMS = 0000003 
DAPSV_DAN = Bopeone DAPSV-RSTS = 00000039 
le = HSH hie : Hsssee 

rl = “RT11 = 

DAPSY DEG! = 90000008 DAPSV-RUNSYS = 9000000 
DAP$V~DEQ2 = Popp o oe PSV-RVB = 00000008 
DAPS$V_DEV = 00000001 DAPSV_RVN = eas be 
DAPSV_DFL = 0000000A AP$V~SBN = 00000014 
Pata = 9998000 barby SEGMENT : Sear 
DAPSV_EBK = $6000009 DAP$V-SSP~FLG = 00000001 
er ol = $0000081 DAP$V-STM"ONLY = 90000032 
DAPSV7FCS = BopotoTs APSV~STREA = 9000900 
DAPS$V-FFB = 00000000 DAPSV~SYSPEC = 90000005 
DAPSV_FLG a DAPSV~TKS s 00011 
DAP$V_FOP1 : P$V"TOPS1 = 00000 § 
re ede = 00 DAPSV-TOPS20 = Bono SS 
DAPSV~GEQ~v42 = 00000021 tah same 


1 8 
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DAPSV_VAXVMS = 4 DAPS$_DECVER = 00 16 
DAPSV_VMS_XPF1 = 3 DAP$_DEQ1 = 16 
DAPS$V~VOL = DAP$_DEQ2 = 1 
DAP$V_X_CHECK = : 1 DAP$_DEV s 0001F 
DAPSV_X”~RECNUM = DAPS$_DFL = 8 12 
DAPSW_ACLMENU 0004 AP$_DTP = 1D 
APSW_BLS 0004 DAP$_DVB = 00 $9 
DAPSW_BUFSIZ 0004 DAP$_EBK = 00 
DAPSW_ CHECK 000004 DAP$_ECONUM = 00000014 
DAPSW_CTLMENU 0000044 DAP$_EDT = 00000013 
P$W_DE 0000054 DAPS_FFB = 00000024 
DAP$W_DEQ2 444 FF APS_FILEDATA = 4 58 
DAPSW_DFL 4 DAPS_FILESYS = 0000 Og 
DAPSW_DISPLAY1 0000004C P$_FLAGS = 4444 
DAPSW_DISPLAY2 aia it AP$_FLG = 00000011 
DAPSW_FFB $4 4 96 DAP$_FOP1 = 0000001D 
DAPSW_IFL 00000046 PS_FOP2 = 00000011 
DAPSW_LRL 4444 4 TA DAP$_FORMAT = 00000008 
DAPS$W_MRL 0000007 PS_ = 00000019 
DAPSW_MRS 0000004A DAP$_HBK = 00000022 
DAP$W_PARTNER 00000006 DAP$_IAN = ai te 
APSW_POS 0000004C DAP$_IBS = 44 ET 
DAPSW_POS_TMP 0000004A DAPS_IFL = 0000001 
DAP$wW_PROGRP 00000054 DAP$_ INVALID = 00000009 
DAP$W_PROMENU 00000040 DAPS$_KEYMENU = 00000010 
_PR POOR eS DAPS_KNM = 00000018 
DAPS$W_PROSYS 0000005 DAP$_LAN = 00000018 
DAP$W_PROWLD 0000005 DAP$_LEN256 = 00000008 
DAPSW_PVN 0000004 DAP$_LENGTH = QOQ00000A 
DAPSW_RFA 0000004 P$_LOC = 60000014 
PS$W_RVN 0000004 DAPS_LRL = tated 
DAPSW_SSP_MENU 00000080 DAP$_LVL = 00000023 
DAPSW_STSCODE 00000040 DAPS_MRL = 00000025 
) _ SUMENU 00000040 DAP$_MRN = QOOQOO0OTA 
DAPSW_TIMCNU 00000040 DAPS_MRS = 00000016 
DAP$SW_VERSION 00000004 DAP$_MSG_SYNC = 0000000A 
DAP$W_ VOL see et 4 DAP$_NAMESPEC = 00000011 
AP$_ADT = 0000001 DAPS$_NAMETYPE = 00000010 | 
APS$_AID = 00000017 DAP$_NOA = 00000012 
DAPS$_ALLMENU = 0000001 DAP$_NOK = 00000011 
DAP$_ALN = 94444 1 DAP$_NOR = 00000013 
DAP$_ALQ1 = 4444 DAP$_NSG = 00000014 
DAP$_ALQ2 = 0000001 AP$_NUL = 00000019 
DAP$_AOP = si 3 AP$_ORG = SOR Oe TT 
DAP$_AT 7 MENU = 0001 DAP$_OSTYPE = 0000001 
DAP$_BDT = 0000001 AP$_OWNER = 00000011 
DAP$_BKS = 0000001 AP$_PDT = a ay 
DAP$_BKZ = 000 1 DAP$_POS_TMP = 4 
AP$_BLS = 0000001 DAP$_PROGRP = 00000014 
DAP$_BSZ = +3 DAP$_PROMENU = 0000001 
DAPS$_BUF SIZ = 1 DAP$_PROOWN z it 1 
DAP$_CDT = 11 DAPS_PROSYS = 1 
DAP$_ CHECK = 3 DAP$_PROWLD = 1 
DAP$_CMPF UNC = 1 DAP$_PVN = 14 
DAP$_D = 4 1¢ DAP$_RAT = 14 
DAP$_DATATYPE s 11 DAP$_RDT = 00 13 
DAPS$_DBS = 00000021 DAPS$_RECNUM1 = 0000001 
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LOOP 
MSG 
INI_MSG 
UCCES 
£ 
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1 
SG 
LOOP 
MSG 
BINTIM 
M_INVALID 
LOOP 
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beeeececena ween mranes 


! ; Psect synopsis ! 


scamoe es cmnenmnanall 


PSECT name Allocation PSECT No. Attributes 

» SS ;, 0000000 8} 00 ( 0.) NOPIC USR CON ABS LCL ——e NOEXE NORD noun NOVEC BYTE 
NHSNE TWORK 000009 2360. go. PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
SABSS 000000C0 192.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 


Gooceneeecesesceesescescoe} 


Phase Page faults CPU Time Elapsed Time 
Initialization 3 0:00: 8.06 00: 0:00.71 
—' ys processing 125 0:00:00. 0:00:04.45 
. 4 497 00:00:26.55 00:00:57.51 
Synbol table sort 0 Opt B8: 2.15 BA: 80:98 35 
Pass 2 329 0:00:06.27 0:00:15.19 
Symbol table output 63 00:00:00.40 00:00:01.04 
Psect synopsis output 3 bs SS 3 00:00:00.03 
Cross-reference output bs SE 00:00:00.00 
Assembler run totals 1050 00:00:36.06 00:01:22.51 


| 

| 

| 

e working set Limit was 2100 pages. 
131990 bytes (258 pages) of virtual memory were used to buffer the intermediate code. 
There were 80 pages of symbol table space allocated to hold 1334 non-local and 149 Local symbols. 
1917 source Lines were read in Pass 1, producing object records in Pass 2. | 
39 pages of virtual memory were used to define 38 macros. 
| 

| 

| 


eee nea mn ec eee roe ose sweet 


Macro Library name Macros defined 


-$32 5$DUA28: CRMS.OBJJRMS.MLB; 1 26 
$255$DUA28: SYSLIBISTARLET. MLB; 2 6 
TOTALS (all Libraries) 32 


1801 GETS were required to define 32 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:NTODECODE/OBJ=OBJ$:NTODECODE MSRC$:NTODECODE/UPDATE=(ENHS:NTODECODE) +LIB$:RMS/LIB 
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